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PREFACE 



This manual is intended as an introduction to programming in HAL/S. The reader is 
presumed to have some experience using one or more procedure-oriented languages such as 
FORTRAN or PL/I. The book may be used either as part of a self-study program or in con- 
junction with a course of twenty to forty classroom hours over a period of one to two 
weeks. 

The material is organized as a tutorial rather than as a reference book. Furthermore, it 
is intended as an introduction to HAL/S rather than as a definitive exposition. After com- 
pleting the course, the reader should refer to the HAL/S Language Specification or the 
HAL/S Programmer's Guide for a more detailed and complete description of the language. 

It is impossible to give proper credit to all the people at NASA, IBM, and Intermetrics 
who have contributed to this book. Special recognition must go to Josephine Jue, John 
Schwartz, and Al Mandelin for their detailed review of several drafts of the manuscript, to 
Gary Singer for performing the final editing and page layout, and to Valerie Censabella who 
typed all of the manuscripts and got the majority of the exercises through the HAL/S-360 
compiler. 

Support of the HAL/S language, compilers, and documentation is an ongoing effort of 
NASA and Intermetrics. Comments on this manual will be appreciated and will be incor- 
porated into subsequent editions. All comments or inquiries should be addressed to: 

HAL/S Language Group 
NASA- Jet Propulsion Laboratory 
Programming Development Section 
Mail Stop 124-241 
4800 Oak Grove Drive 
Pasadena, CA 91103 

(213)354-3289 Michael J. Ryer 

September 1 978 



PREFACE TO THE SECOND EDITION 

The first edition of Programming in HALjS has found a welcome home in the growing 
community of HAL/S users. It has proven to be quite useful as both a teaching aid, and for 
the independent study of HAL/S. 

This edition contains a new chapter on FIXED data types and a new appendix on 
FORMAT I/O. A number of corrections have also been incorporated into the text. 

Special thanks for work on these chapters go to Steve Gallant, Mark Davis, Bruce 
Knobe, and Fred Martin. 

September 1979 
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1.0 INTRODUCTION 

HAL/S is a computer programming language; it is a representation for algorithms which 
can be interpreted by either a person or a computer. HAL/S compilers transform blocks of 
HAL/S code into machine language which can then be directly executed by a computer. 
When the machine language is executed, the algorithm specified by the HAL/S code (source) 
is performed. This document describes how to read and write HAL/S source. 

HAL/S was developed principally for real-time aerospace programming. Its most signifi- 
cant use to date has been the production of the NASA Space Shuttle Flight software. This 
intended application imposed three major constraints on the language design: reliability, 
efficiency, and machine-independence. Reliability and efficiency are obvious requirements 
of flight software. The machine-independence requirement stems from a desire to minimize 
programmer training, to transfer blocks of proven code between distinct NASA projects, 
and to reduce the dependence on flight hardware availability. 

Within these constraints, the language provides simple and intuitive constructs for func- 
tions commonly performed by aerospace applications, such as vector/matrix arithmetic. 
More generally, HAL/S is suitable for real-time process control applications, particularly 
where mathematically-oriented algorithms are involved. While the language is "tuned" for 
aerospace, the machine-independence and reliability aspects of HAL/S make it attractive for 
a variety of applications which do not perfectly match the original intent. 

It may seem strange to some readers to attribute reliability to a programming language 
rather than to programs written in that language. This viewpoint is an outgrowth of the 
study of structured programming. A reliable program produces correct results for all pos- 
sible combinations of inputs. Since it is usually impractical to exercise the program on all 
possible inputs, programs must be verified by induction. The assertion is made that if the 
program passes a particular set of tests, then the program will produce correct results for 
any set of inputs. This assertion is always based on an understanding of the program's 
internal workings. If the logic of a program is misunderstood, the results of verification 
cannot be relied upon. 

Although it is difficult to assess the psychological implications, certain high order lan- 
guage constructs (e.g., the GOTO) are known to be symptomatic of unreliable programs. 
These constructs have been eliminated or highly restricted in HAL/S. 

1.1 LEARNING HAL/S AFTER FORTRAN 

HAL/S is similar to FORTRAN in many ways. The assignment statement is essentially 
the same in both languages. The FORTRAN concepts of subroutines, arrays, common 
blocks, and library routines all have analogues in HAL/S. Some concepts have been ex- 
tended; for example, the FORTRAN statement A=B+C can be used to add either integers 
or reals: the compiler generates instructions appropriate to the types of A, B, and C. In 
HAL/S, the same concept applies, but A, B, and C may also be vectors, matrices, or arrays 
of any type. HAL/S has many more data types than FORTRAN. 

Every variable used in a HAL/S program must be explicity declared before it is refer- 
enced. This is done via the DECLARE statement, which specifies the name of the variable 
and its attributes (including its data type or "mode"). The need to declare variables results 
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from the wide variety of data types in HAL/S. It also allows the compiler to check for mis- 
use of data and to enforce certain programming standards. For example, a FORTRAN pro- 
grammer might divide a variable containing alphanumeric character data by the number 256 
in order to access the leftmost byte. HAL/S does not allow any arithmetic operations on 
character data since such operations usually depend on the particular character code in use 
and are thus machine-dependent. Instead, individual characters may be extracted from a 
character variable by explicit subscripting. Similarly, binary (logical) data is a distinct data 
type. The AND, OR, and NOT operators may be used with BOOLEANS or BIT strings, but 
not with arithmetic data. 

These restrictions may seem awkward at first, but with experience it will become quite 
natural to select the appropriate type for each variable in advance. HAL/S includes con- 
structs for data type conversions, but these conversions are needed less frequently than an 
experienced FORTRAN programmer might expect. 

Another major difference between HAL/S and FORTRAN is in the flow-control (branch- 
ing) statements. Structured programming research has had a major impact in this area. In 
essence, the various forms of GOTO statement have been replaced with more reliable con- 
structs. The distinction may be characterized as "flow control by nesting of statements" 
rather than "flow control by branching". While this difference of philosophy may make 
the transition to HAL/S from FORTRAN more difficult, it can be argued that the HAL/S 
form is more English-like and thus move intuitive. Furthermore, using the HAL/S flow-con- 
trol constructs instead of GOTOs tends to result in a program which can be read sequentially 
(from top to bottom). Loops and decisions are expressed explicitly in HAL/S rather than 
implied by a convoluted arrangement of forward and backward branches. In any case, most 
modern programming languages (including FORTRAN '77) have flow control statements of 
the type found in HAL/S. 

While the treatment of data types and flow control are the most fundamental differences 
between HAL/S and FORTRAN, the differences in source and listing formats are the most 
noticeable. The source format is somewhat freer than in FORTRAN. The output listing 
for'mat, however, is not under programmer control at all. Every HAL/S listing is put in a . 
standard format by the compiler. Each HAL/S statement is placed on a new line and auto- 
matically indented to show its relationship to other neighboring statements. Exponents and 
subscripts are raised and lowered (respectively) in the listing, and various additional informa- 
tion (compiler-generated annotation)is added. Thus, the work of the programmer is reduced, 
the indenting is always correct (since the compiler re-computes it every time), and reading a 
listing required no knowledge of the individual programmer's style. 

Other major differences between HAL/S and FORTRAN are in the areas of Real-time 
interactions, and the interfacing of separately compiled units. These advanced topics are 
thoroughly discussed in chapters eleven and twelve of the text. 

1.2 HAL/S CONTRASTED WITH OTHER HIGH ORDER LANGUAGES 

The differences between HAL/S and other high order languages arise from the charac- 
teristics of aerospace applications, and the time-frame in which HAL/S was designed. HAL/S 
was developed between 1970 and 1972. Since that time, changes which would invalidate 
existing HAL/S code have been resisted. Thus, some recent advances in language design have 
not been incorporated. Note, however, that the language did evolve from a thorough study 
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of the existing languages. Most of the concepts which have been developed since that time 
have not been implemented in any operational (rather than experimental) language. When 
these concepts (e.g., data abstraction) have been proven outside of the university environ- 
ment, they may be incorporated in HAL/S. There is an established language control board 
which continuously reviews the state of the art and suggests and/or approves changes to 
HAL/S. 

Some features which were in common use at the time were excluded due to efficiency- 
considerations. These include recursion and dynamic storage allocation. In addition to the 
overhead normally associated with these facilities, a reliability problem is avoided by their 
exclusion. Because of these and other exclusions, the total storage requirement of a HAL/S 
application can be exactly determined before execution starts. Consequently, HAL/S pro- 
grams can never run out of storage during execution. This safety feature is essential in 
aerospace applications. 

Other constructs, such as the full generality of the PL/1 error recovery system, have also 
been omitted for reasons of efficiency. 

HAL/S also lacks sophisticated facilities for dealing with ground-based peripheral devices 
(printers, plotters, etc.). Character-oriented I/O statements are provided for testing and 
development, but many I/O facilities provided by ground-based operating systems are in- 
accessible from HAL/S. This is due to the design emphasis on flight software, and the lack 
of standardization of the concepts and facilities of ground-based operating systems. 

HAL/S stresses readability rather than "writability". This approach acknowledges the 
fact that a program is written once (generally by one person), but is read many times (and 
often by many people). For instance, there are no abbreviations for HAL/S keywords. 
Furthermore, all of the keywords are "reserved". No confusion can arise from variable 
names which duplicate keywords, because no such re-use of a keyword is allowed. 

On the other hand, HAL/S includes some facilities which other languages lack. Vector/ 
matrix arithmetic has already been mentioned: HAL/S vectors and matrices are distinct 
from arrays, and are supported by a full set of operations. These include cross and dot 
product, as well as addition, subtraction, multiplication, division, and exponentiation. All 
are defined according to the usual rules of mathematics. 

Although HAL/S contains features abstracted from a variety of languages, it exhibits a 
considerable uniformity. For instance, a portion of a variable is always selected by subscript- 
ing, whether the variable is a 3-vector, a character string, or a set of bits comprising a 
computer word. 

Finally, there is one difference which is not exhibited in the language per se. This may 
be termed the "system" aspect of HAL/S. In addition to the listing and a machine-language 
"object module", the compiler generates a machine-readable random access file containing 
information about every variable and statement in the program. This file is then used by 
various statistics and diagnostic packages. Furthermore, some compilers can optionally in- 
sert "hooks" (diagnostic package interfaces) in the generated code. These interfaces are used 
in a functional simulation (FSIM) execution mode. 
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FSIM is a tool which allows flight code to be developed and tested on ground-based 
computers. It includes a model of the flight operating system, and simulates the timing of 
the flight computer. It also includes provisions for the simulation of avionics I/O. This is 
done in such a way that flight code can be executed on a ground-based computer without 
any source-level changes whatsoever. Debugging commands are entirely based on the HAL/S 
source; the program can be debugged without knowing any details of the ground computer 
hardware. More information regarding the compiler and related software can be found in 
Appendix B of this manual. 

1 .3 HAL/S CONTRASTED WITH THE ASSEMBLY LANGUAGE 

This manual is primarily intended for experienced high order language programmers; this 
section presents some brief background information for programmers whose experience has 
been primarily in assembly language. 

The term "high order language" refers to languages in which a line of source produces a 
variable number of machine instructions. Some readers may initially view HAL/S as a tool 
for specifying machine instructions more compactly. 

Many assemblers allow expressions, such as "A+B/C" in certain contexts where a num- 
ber is needed. The symbols used in these expressions must have values known to the assem- 
bler; i.e., A, B, and C must be equated to constants in some way or must be macros which 
expand to constants or literals. The computation is done at assembly time and the output of 
the assembler contains just the value of the expression. 

This facility is present in HAL/S. There is, however, an important distinction: if the 
values of the symbols used in a HAL/S expression are not known at compile-time, then ma- 
chine instructions are generated to perform the computation at run-time. Most of the com- 
putation in a HAL/S program is specified by means of expressions. There are no ADD or 
SUBTRACT HAL/S statements; all arithmetic is done with operators (e.g., "+", "— ", etc.). 
The "+" operator will add integers, scalars, vectors, matrices or arrays of any of these basic 
types. The same operator performs both single and double precision arithmetic. Thus, the 
compiler "decides" what particular machine instructions are appropriate to add the specified 
operands together. This is one type of bookkeeping that is automated by the compiler. 

This approach illustrates another meaning of "high order language": the programmer 
is farther removed from the details of the computer hardware. The programmer specifies 
a function (e.g., addition) and the compiler maps it into the computer's repertoire (e.g., 
LOAD, ADD, STORE). All addressing and instruction usage decisions are also the province 
of the compiler. 

Unlike a macro assembler, the compiler does not always generate the same instruction 
sequence for a given source statement. It can "remember" whether a variable is still in a 
register from some prior statement, and, if so, avoid re-loading it. The compiler may also 
move an entire computation out of a loop if none of the variables referenced are modified 
within the loop. Generally, the compiler is free to make any re-arrangement of the program, 
provided that the same results will be produced from its execution. This means that it is 
nearly impossible to predict what machine instructions will be generated when a particular 
HAL/S statement is compiled. Hence, the best policy is to specify the desired function in 
the most intuitive way and ignore the mapping into machine instructions. 
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There is no way to reference a particular machine register or word of memory in a 
HAL/S program. Operations are performed on variables and constants rather than addresses 
and registers. All such assignments are made by the compiler. A large class of potential 
programmer errors (e.g., use of the wrong register) is avoided by this approach. 

1.4 INTRODUCTION TO THE MAIN TEXT 

The following chapters describe the HAL/S Language; a few advanced features are 
omitted, but most of the language is covered, including all of the frequently used con- 
structs. This manual is intended for sequential reading. The HAL/S Language Specification 
is more appropriate for use as a reference, since it is concise, complete, and fully cross- 
referenced. This manual, being tutorial in nature, describes each facet of the language in 
terms of the material presented in previous chapters: interactions between separate con- 
structs are not discussed until each construct has been described separately. Each chapter 
is a prerequisite to the next, but no other knowledge of HAL/S is assumed. 

Another document, the HAL/S Programmer's Guide, is also tutorial in nature, but 
each chapter is self contained: material is repeated instead of referenced. Hence, the 
programmer's guide may be the best choice for "brushing up" on some particular aspect 
of the language. 

The information needed to compile (link, run and debug) a HAL/S program, once it 
is written, can be found in the HAL/S User's Manual for the particular compiler in use. 
These documents also describe variations among compilers (i.e., implementation 
dependencies). 

The chapters which follow explain HAL/S primarily by example. The form of each 
construct is always shown by example; the examples are so constructed that the meanings 
of new forms can be deduced. Those who learn easily from examples may find portions of 
the English explanation redundant. In every case, the examples are intended to be read from 
top to bottom when they are first referenced, rather than after the new constructs have 
been explained. 

The occasional tables and lists need not be memorized. If the exercises can be done 
after one reading, further study is not needed. The most important constructs are used 
freely in subsequent chapters, thus providing a continuous review of earlier material. It 
would be difficult to learn HAL/S without writing any HAL/S programs; about one-half of 
the exercises require programming. Answers to all are given in Appendix C. 

Computer words which are not defined herein (e.g., algorithm, program) may be taken 
at their conventional meanings. In some cases, a more precise HAL/S meaning is given later. 
Definitions are denoted by italics as in: "the form and meaning of a language construct are 
generally termed its syntax and semantics, respectively." 

Chapter Two contains enough information to write a HAL/S program that really does 
something. Chapter Three completes the topics introduced in Chapter Two, primarily addi- 
tional forms of the arithmetic expression. The remaining chapters discuss flow control, addi- 
tional data types, and advanced topics such as real-time programming. 
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2.0 READING, WRITING, AND ARITHMETIC 

The basic rules for writing a HAL/S program are shown in the example below: 

SIMPLE: PROGRAM; 
C CODE IN THIS TYPEFACE IS 
C HAL/S SOURCE 

DECLARE PI CONSTANT (3.14159266); 
DECLARE R SCALAR; 

READ(5) R; 

WRITE(6) PI R**2; 

CLOSE SIMPLE; 

2.1 WRITING A HAL/S PROGRAM 

The example above consists of six HAL/S statements and two comments. The first state- 
ment serves to illustrate several conventions used throughout the language : 

1 . Every program begins with a labeled PROGRAM statement. 

2. HAL/S statements are labeled by preceding them with an identifier and a colon. 

3. All HAL/S statements end with a semi-colon. 

The two lines following the PROGRAM statement are comments. For further clarifica- 
tion, additional lines could be used. Any line containing a C in column one is a comment. 
Comment lines may be placed anywhere in a program. 

The next statements are DECLARE statements. These statements form the declare 
group, which precedes the executable statements in every program. Variables are created via 
the DECLARE statement. Variables must always be declared before they are used. READ 
and WRITE are executable statements. The numbers 5 and 6 in parentheses are channel 
numbers. They control the routing to and from an external device. Many other executable 
statements will be introduced in later chapters. CLOSE, like PROGRAM, is a delimiting 
statement: It is the last line of every program. The block delimiting statements are further 
discussed in chapter seven. This chapter stresses the DECLARE statement and the assignment 
statement (not shown above). 

In this simple example each statement could be punched onto a card just as shown. 
HAL/S source is free format: There are no rules about particular card columns except 
column one. Column one must contain one of the characters E, M, S, C, D or blank. Normal 
statements are written with a blank in column one. "C" is used for comments; the use of 
the other characters will be discussed later. 

When a program is stored on disk or tape the format is the same: Column one is defined 
as the first character of a record or the character following an end of line code. With this 
exception, the arrangement of HAL/S source on cards or records does not affect its inter- 
pretation by the compiler. The example above could also be put as: 
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SIMPLE: PROGRAM; 
C THIS IS HAL/S SOURCE 

DECLARE PI CONSTANT (3.14159266); DECLARE 
R SCALAR; READ(S) R; WRITE(6) 
PI R**2; CLOSE SIMPLE; 

Longer programs are not always written correctly the first time : Placing only one state- 
ment on a line makes later modifications much easier.* 

Since every statement ends with a semi-colon, no additional convention is needed for 
long statements. It is the semicolon rather than the end of a line that marks the end of a 
statement. To put a comment after a statement on the same line, the "/*" form can be used. 
For instance: 

READ(5)R; /* OBTAIN RADIUS*/ 

WRITE(6) PI R**2; /* ** MEANS EXPONENTIATION */ 

This type of comment may be placed anywhere a blank is allowed (except in column 
one). It consists of any string of characters beginning with "/*" and ending with "*/". As 
the example shows, "*" and "/" may be used within the string in any combination other 
than "*/". 

The WRITE statement could also be coded as: 

column 1 

E 2 

MWRITE(6) PI R; 

Here, column one is used to distinguish between main and exponent lines. Some implemen- 
tations of HAL/S accept a two dimensional input format in which exponents and subscripts 
are indicated by their positions. Multi-line input is generally not used however, since enter- 
ing and maintaining source in this form is cumbersome under common editors or on cards. 
The compiler produces listings in the multi-line format but all source in this book will be 
shown in the single-line form. 

The preceding paragraphs describe the placement of statements in a file or on cards. 
Next we will discuss the format of individual statements. 

The PROGRAM and CLOSE statements each contain the keyword, an identifier, and 
punctuation. Keywords are the "verbs" in HAL/S. Each has a predefined meaning, and 
so cannot be used as a variable name. A complete list of keywords is given in Appendix 
D. All of the HAL/S keywords are made, up of the letters A through Z. Except for the 
ARCTAN2 function, no numerals are used. The underscore, or "break character" (_) is 
not used in any HAL/S keyword. 



*Some debugging systems allow a breakpoint to be set at the statement on a particular card (specified by 
sequence number). Placing only one statement per line also simplifies this usage. 
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Blanks, or spaces, are significant in HAL/S. For instance, DECLARER is a valid identi- 
fier: It would never be interpreted as DECLARE R. Blanks must be coded between key- 
words and identifiers in any combination. Except in comments and character strings, 
however, there is no difference between one blank and many blanks. 

The compiler sees its input as a continuous stream of characters, i.e., the concatenation 
of columns 2 through n of the entire input file. This input is split into words at the punctua- 
tion: blanks, commas, semi-colons, etc. The punctuation is in two categories: delimiters 
such as :, ;, and blank, and operators such as +, -, blank, and /. When a blank appears 
between two identifiers or expressions it serves as the multiplication operator. Otherwise, 
it is a delimiter. 

Using the punctuation, the compiler breaks its input into a series of tokens. Tokens are 
of four types: 

1 . Keywords such as DECLARE 

2. Identifiers such as R 

3 . Operators such as * * or blank 

4. Literals such as 3.14159266 

Each HAL/S statement is defined in terms of these toKen types. For instance, the basic 
DECLARE statement consists of the keyword DECLARE followed by an identifier 
followed by attributes. The attributes consist of keywords and literals. Like all statements, 
DECLARE ends with a semi-colon. 

Identifiers consist of variable names and labels. The identifiers in the sample program 
are SIMPLE, PI, and R. Identifiers may be from one to thirty-two characters in length, 
and composed from the letters A-Z, the numerals 0-9 and the underscore. The first character 
must be a letter; the last may not be an underscore. Selection of names is entirely up to 
the user: 

DECLARE SICMA CONSTANT (3.14159); 

is syntactically correct. The underscore may be used in an identifier to write an identifier 
composed on more than one word: DELTA_V and TIME_TO_GO are valid identifiers^ 

There is a trade-off in identifier lengths: Very short identifiers, such as RLNGL, make 
for cryptic code, whereas very long identifiers, such as CURRENT_VEHICLE_ROLL_ 
ANGLE, make it hard to find operators and match up parentheses in expressions. Identifiers 
may not be started on one card and continued on the next. Since the card boundary serves 
as a delimiter equivalent to a space, long names can be awkward. 

HAL/S does encourage self-documenting programs through meaningful identifier names. 
This author's preference for a mixture of long and short names is generally displayed 
throughout this manual. Sometimes this text uses underscores and numerals in identifiers 
to distinguish them from keywords. The HAL/S keywords cannot be used as identifiers. A 
few to be careful of are: SUM, IN, SET, LINE and TRACE. None of the keywords are less 
than two characters. 
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The third type of token is an operator. HAL/S includes logical and character operators 
as well as the arithmetic operators listed in Section 2.2. 

The fourth type of token is a literal. There are arithmetic, character, and bit literals, 
though only arithmetic literals are of concern now. Throughout this book, arithmetic 
literals are called simply numbers. 

While HAL/S has both integer and scalar datatypes, it does not distinguish between 
integer and scalar numbers. "3" is completely equivalent to "3.0". "3.14159" is completely 
equivalent to "314159/100000", and to "314159E-5", "31415.9E-4" and so forth. The 
character E is used in numbers to indicate scientific notation. The form "314159E-5" is 
interpreted as: 

314159 x 10~ 5 



(314159)10**(-5). 

Thus, numbers can be written as a sequence of digits with or without a decimal point, 
optionally followed by the letter E and one or more digits. The minus sign (-) is used for 
negative numbers and exponents. The HAL/S Language Specification describes the use of 
other exponent letters to specify powers of two or sixteen instead of ten. 

No blanks may appear in a number. Blanks must separate numbers from adjacent key- 
words, identifiers and literals. 

The statement, 

DECLARE PI CONSTANT(3+l/7); 

is completely valid. "3 + 1/7" is considered a number rather than an expression. An ex- 
pression which contains only numbers, CONSTANTS, and the basic arithmetic operators is 
said to be computable at compile-time. Instead of generating code to evaluate such an 
expression at runtime, the compiler will convert the expression to a simple number. Only 
the value is kept at runtime; the addition and division in "3 + 1/7" are performed during 
compilation. When this manual refers to numbers, any expression which can be reduced to 
a number during compilation is included. 

In summary, a HAL/S program begins with a labeled PROGRAM statement and ends 
with a CLOSE statement. In between is a declare group followed by executable statements. 
These statements may be arranged in any convenient way on successive cards or lines, pro- 
viding that column one is blank. All statements must end with a semi-colon. Both comment 
lines and comments within statements are allowed. Statements consist of a sequence of 
tokens separated by blanks or other punctuation; the tokens are of four types; keywords, 
identifiers, operators, and literals. Most of the HAL/S keywords and operators will be de- 
scribed later. The rules for forming and recognizing tokens of each type have been pre- 
sented here. 
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Exercises 



2.1 A Some of the following are valid HAL/S tokens; some are not. Identify the valid 

tokens, and state the type of each. 

Note: Appendix D contains a complete list of HAL/S keywords. 

a) TEST_TIME 

b) CHARACTER 

c) TRY AGAIN 

d) 7.1E-14 

e) X 

1ABC 

g) DEC_LARE 

h) INITIAL 

i) ALTITUDE_ 

j) TRUE 

k) 4.2.1 

1) QUITE__A_LONG__STRING 

m) 10000000 

2.2 ARITHMETIC EXPRESSIONS 

Like most high order languages, HAL/S allows numeric computations to be specified 
in a form very similar to ordinary mathematical notation. For instance, the equations below 
should be quite recognizable in their HAL/S forms : 

AREA__CIRCLE = PI R**2; /*CIRCLE*/ 

AREA_TRIANGLE = 1/2 B H; /*TRIANGLE*/ 

PYTHAGORUS = (H**2 - B**2)**(l/2); /*PYTHAGORUS*/ 

AREA_TRAPEZOID = H(A+B)/2; ^TRAPEZOID*/ 

This example illustrates the forms of some familiar equations in HAL/S. 

This example shows four assignment statements as well as a number of arithmetic ex- 
pressions. The assignment statement is much as in other languages: the value of the expres- 
sion on the right of the equals sign is assigned into the variable on the left. This section is 
primarily concerned with the evaluation of the expression on the right hand side. 

The example shows addition, subtraction, multiplication, division and exponentiation 
operators. As in mathematical notation, multiplication is indicated by adjacent factors: no 
special character is used to stand for multiplication. Sometimes the blank is referred to as a 
multiplication operator, since adjacent identifiers must always be separated by a blank. 
However, it is the adjacency and not the blank that indicates multiplication. For instance, 
"PI R**2" can be written without a blank as "PI(R**2)" or "(PI)R**2" or R(PI)R". 
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The other basic operators contain no surprises. The hyphen or minus sign is used for 
both subtraction and negation. Parentheses control the order of valuation in the usual way. 
The table below shows the major differences between HAL/Sand mathematical conventions: 



Mathematical Notation 


HAL/S Expression 


ab 


a b 


2x 


2 x 


nx n ~' 


n x**(n— 1) 


-fc+d) 


-(c+d) 


(a)" 


((a+b)/(c-d))**2.5 


xy 

-2ab 


(x y)/(-2 a b) 


a(x+l) 


a (x+1) 



Mathematics defines several conventions to reduce the need for parenthesis in expres- 
sions. For example, 

A X + B Y 

is always interpreted as the sum of two terms, (A X) + (B Y) rather than as the product of 
three factors, A(X+B)Y. These conventions are stated in terms of the order of evaluation of 
various constructs. In particular, multiplication and division are performed before addition 
and subtraction. HAL/S incorporates these rules by defining a precedence for each operator, 
as shown below: 

Precedence of Operators 

** exponentiation first 

# multiplication 

/ division 

+ addition I 

} last 
— subtraction j 

Note that multiplication is done before division rather than at the same time as in some 
languages. 

Given this precedence, the expression: 

AX 2 + BX - C 

is evaluated correctly when written in HAL/S without parenthesis : 

A X**2 + B X - C. 
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The equivalent form with parenthesis is: 

((A(X**2)) + (B X)) - C. 

If strict left-to-right evaluation was desired, this could only be indicated by parentheses, as 
shown below: 

((A X)**2 + B)X - C. 

When an expression contains several operators of the same precedence, they are 
evaluated from left to right for all operators except for exponentiation and division. These 
are evaluated right to left. To see why this is true, consider the definitions below: 

xY Z = X (Y Z ) 

A 

B = A £ 

C B 

The first expression is written: 

Y**Y**7 

If X = 4, Y = 3, and Z = 2, this is: 

4**2**2 = 4**(3**2") = 4^ 

if the natural sequence was overridden via (4**3)**2, 64^ would be produced. Likewise, 
A/B/C is naturally interpreted as A / (B/C), which is indeed equal to A(C/B). 

Other operators of equal precedence are evaluated from left to right. Addition and 
multiplication are commutative and associative, so the order does not matter except for pre- 
cision analysis. Subtraction, however, is neither, and the order of evaluation does affect the 
results. The HAL/S expression, 

A - B - C 

is interpreted as (A— B) — C. 

The distinction between numbers and expressions is somewhat blurred in HAL/S. As 
already stated, any expression that can be computed in advance (during compilation) can 
be used wherever a number is required. Furthermore, a negative number (e.g., —1) is 
actually an expression, containing the number 1 and the negation operator. The presence of 
a blank between a minus sign and a literal is irrelevant. "— 2A" is the product of A and —2, 
but "A —2" is a subtraction even though there is no space between the minus sign and the 2. 

The construct, "A/— 2" is illegal. The minus sign is seen as an operator, and HAL/S 
never allows two operators in succession. This division could be written as "A/(— 2)" or 
more sensibly as "— A/2". 
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To summarize precedence rules, 



HAL/S has defined the precedence of each operator to correspond to the usual 
mathematical conventions, BUT WHEN IN DOUBT, PARENTHESIZE. 



Arithmetic expressions may contain a variety of arithmetic types: Integers, scalars, 
vectors, and matrices. If one variable of each type is created as follows : 

DECLARE S SCALAR; 
DECLARE I INTEGER; 
DECLARE V VECTOR; 
DECLARE M MATRIX; 

The following multiplications and assignments are legal: 

S = V.V; 

V = V*V; 

V = V M; 
M = V V; 
M = M M; 

V = V S; 



They are, respectively: the dot (inner) product, the cross product, the vector matrix prod- 
uct, the vector outer product, the matrix product, and the scaling of a vector and a matrix. 
They produce results of the types indicated by the target variable (left hand side) of these 
assignments. This is a necessity rather than a coincidence: Every expression has a datatype 
and assignments can only be made between like types. 

Identical data types are not required. Since integers and scalars may be used inter- 
changeably, the following combinations are also legal: 

I = V.V; 

V = V I; 
M = M I; 

as are all eight combinations of integers and scalars alone. This, however, exhausts the 
combinations that can be written with the four variables declared above. Not all operators 
apply to every combination of datatypes. For instance, the addition of a vector to a matrix 
is not permitted. In general, operations which are undefined in mathematics are illegal in 
HAL/S. 

By default, vectors and matrices are of size 3 and 3x3. Section 2.3 explores other pos- 
sibilities and defines the operators in more detail. At this point it suffices to say that 
wherever a variable of a given type is allowed in an expression, a parenthesized expression of 
the same type is also allowed, e.g., 

V = V*((V S)M); 
M = M(V V); 
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2.2 A A Compiled Example 

With the names (I, S, M, and V) used in the previous section, the type of each variable is 
apparent. Most applications would require a better notation: this is provided by the com- 
piler as shown below: 



DATATYPES: 






program; 






DECLARE 


S 


SCALAR; 


DECLARE 


I 


INTEGER; 


DECLARE 


V 


VECTOR; 


DECLARE 


M 


MATRIX; 


S = V . 


V 




V = V * 


V 




- # 






V = V M 






* - - 






M = V V 






* * * 






tt = M M; 






v = v s; 






CLOSE DATATYPES; 



This listing was automatically produced from the preceding HAL/S statements by a 
HAL/S compiler. No changes to the source were made. The asterisk and hyphen overmarks 
appear only in the listing; they are not coded by the programmer. The compiler indicates 
the type of each variable in a compilation via the overmarks shown below: 

Integer and Scalar none 

Vector _ 

Matrix * 

Character , 
Bit and Boolean 

Structure + 

Other differences between the source and the listing are: 

1 . The compiler controls spacing, indenting, and the arrangement of statements on 
lines in the listing. The source format is irrelevant. 

2. Statements in the listing always appear in multi-line format, with raised exponents 
and lowered subscripts. 

The compiler marks each line of the listing with an E, M, or S to indicate exponent, 
main, and subscript lines. These characters, as well as "C" for comments, appear outside the 
box in the examples. Some blank lines have been removed, and DECLARE statements are 
sometimes used in several examples without being repeated. Any HAL/S code which appears 
in a box like the one preceding is extracted from an actual listing: It has not been re-typed 
and is therefore free of any syntax errors. 
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The standardized listing format produced by HAL/S compilers isolates the reader of 
a program from the style of its author. The same listing will result whether the source was 
entered with minimum spacing on as few lines as possible, or was entered one token per line. 
As a result, the listing format is a reliable source of information about a program's structure, 
independent of individual programmers. Since the indenting in the listing is re-computed at 
each compilation based at the flow control statements in the source, it is always up to date, 
and changes to the source can be made without undue concern over spacing. 

This completes the discussion of HAL/S source and listing formats. More information 
about arithmetic data will be needed to proceed with the topic of arithmetic operations. 

Exercises 

2.2A Write HAL/S expressions equivalent to the following mathematical expressions: 
a) ax+by+cz 



b) 



a+b + _d_ 
c e+f 



c) 2"- 1 



2 n -l 

d) x 3 -3x 2 +3x-l 

e) (x-1) 3 

f) 10 xy 

g) (10 x ) y 

h) V (V, W are vectors; ' • ' means dot product) 

V-V 

2.2B The left-hand column contains mathematical expressions that are incorrectly coded in 
HAL/S in the right-hand column. Find the errors and rewrite each expression 
correctly. 

M*X+B 

2X+1 

X**(-2.5N) 

C**-5 

AC/BD 



a) 


mx+b 


b) 


2(x+l) 


c) 


x -2.5n 


d) 


c-5 


e) 


ac 
bd 
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2.3 DECLARING DATA 

The example below is a declare group which shows the three different forms of DE- 
CLARE statements: 



M 


DECLARE3: 




M 


PROGRAM; 




M 


DECLARE COUNTER INTEGER; 




n 


DECLARE VECTOR, 




M 


POSITION, VELOCITY, 


TORQUE; 


M 


DECLARE NEW CO_OP0S MATRIX, 




n 


SPEED SCALAR, 




n 


N INTEGER, 




M 


wira force vector; 




M 


CLOSE DECLARE3; 





The first form is the simple DECLARE statement used previously. The next two forms are 
for convenience in declaring many variables: the effect is the same as a number of simple 
declare statements. The second form is a factored declare statement. It is distinguished by 
the appearance of attributes before the variable names. The attributes apply to all of the 
identifiers in the list. This example creates three 3-vectors. 

The third form in DECLARE3 is a compound declare statement. This form is used 
either to avoid re-typing the word DECLARE, or to show that a group of variables are re- 
lated. This grouping capability can aid in the attempt to document a program in the code as 
well as in the comments. 

Like all HAL/S statements, declarations may be entered in free format. The example 
above shows how the compiler arranges the tokens in the listing. 

The simple declare statement consists of DECLARE, a variable name, and the attributes 
of that variable. The factored declare statement consists of DECLARE, a set of attributes, a 
comma, and a list of identifiers to which the attributes apply. The compound declare state- 
ment consists of DECLARE and a list of identifier-attributes pairs, separated by commas. 

The three forms of the DECLARE statement are for convenience and documentation. 
A variable of any type can be created using any form, and the form of declaration used does 
not affect the way the data is allocated or referenced. 

The attributes of an identifier consist of its data type, precision, dimensionality, initiali- 
zation, lock group, and so on. The only attribute that is required in a declare statement is 
the data type. Several other attributes are described in Chapters three and six. The arithme- 
tic data types are described below. 

The INTEGER type is used for counters, indexes, status indicators, and other applica- 
tions where a variable's domain is limited to the whole numbers. Integers generally occupy 
less storage than scalars and can be operated on more efficiently. 

SCALARs correspond to the real numbers. They are generally stored in floating point 
format although this is not a language requirement. In any case, they can represent numbers 
to "n" digits of precision, where n is constant for a given implementation. In a floating 
point implementation, scalars may trade-off precision for a greater range by representing the 
number as a fraction (mantissa) and an exponent (characteristic). 
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The VECTOR type denotes a vector of scalar quantities, such as a position in Cartesian 
coordinates. Vectors can be of any length from 2 to an implementation dependent limit. 
The VECTOR keyword is followed by a parenthesized number to explicitly specify length; 
VECTOR(2), for example, denotes a vector with two components. The VECTOR keyword 
alone is an abbreviation of VECTOR(3). No distinction is made between row and column 
vectors. 

The MATRIX type denotes a matrix of scalar quantities, such as a linear transformation 
on vectors. The row and column lengths of matrices can vary between two and an imple- 
mentation defined limit. The MATRIX keyword is followed by two numbers separated 
by a comma and enclosed in parentheses to explicitly specify row and column lengths; 
MATRIX(4,5), for example, denotes a 4 x 5 matrix. The MATRIX keyword alone is an 
abbreviation of MATRIX(3,3). 

A VECTOR(n) quantity can be multiplied by a MATRIX(x,n) quantity yielding a 
VECTOR(x) quantity. When x = n = 3, this can serve as a coordinate transformation since 
each component of the resulting vector is equal to the dot product of the original vector 
and one column of the matrix. 

A MATRIX(x,y) quantity can be multiplied by a MATRIX(y,z) quantity yielding a 
MATRIX(x,z) quantity. The inner dimensions must match. The exponentiation operator 
can be used to invert or transpose a matrix or to generate the identity matrix. The cross 
product (*) only applies to 3 -vectors. The dot product (.) applies only to vectors of equal 
lengths. Addition, subtraction and assignment require identical dimensions. 

Real numbers can also be expressed by employing the FIXED data type. In this repre- 
sentation, only the fractional component of the number is actually stored. The exponent 
is specified in the declaration and remains constant for the lifetime of a variable. The 
VECTORF and MATRIXF data types correspond to VECTOR and MATRIX, but contain 
fixed components instead of scalars. These three data types (FIXED, VECTORF, and 
MATRIXF) will be described in more detail in Chapter 14, and will therefore be discussed 
in greater depth along with the other four arithmetic data types. 

These definitions of the four arithmetic data types are consistent with standard mathe- 
matical conventions. Data type is the most important attribute because it determines which 
operations may be performed on the variable. 

Another important attribute of variables is initialization. The INITIAL attribute speci- 
fies the value a variable will have when the program is first loaded into computer memory . 
Its form is shown below: 



INITIAL AND CONSTANT: 
PROGRAM; 

DECLARE X SCAUR INITIAL(O); 

DECLARE MAX_SPEED SCALAR INITIAL! 1*000 ) ; 

DECLARE FEET_TO_MILES SCALAR CONSTANTU / 5280); 

DECLARE SEC_T0_HR CONSTANT! 60 (601); 

DECLARE MAX_MPH INITIAL! 14000 FEET TO MILES / SEC TO HR); 
CLOSE; " " " 
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The CONSTANT attribute also causes initialization. When an identifier has the CON- 
STANT attribute, its value cannot be changed. Any attempt to assign into it results in an 
error message. 

In other respects, INITIAL and CONSTANT are the same. Both are followed by a paren- 
thesized value to which the identifier is initially set. Variables of any type may be initialized. 
For integers and scalars the value must be a number. As the example indicates, this includes 
both arithmetic literals and expressions which can be evaluated at compile time. Since the 
value of a CONSTANT cannot be changed, compile-time expressions may contain references 
to previously declared integers and scalars with the CONSTANT attribute. 

This example shows two new abbreviated forms. SCALAR is the default data type. It 
can be omitted, as in the fourth declaration of the example. Another omission is in the 
CLOSE statement. The program name is optional, although good reasons for keeping it will 
be seen when nested code blocks are introduced in Chapter Seven. 

A vector or matrix is initialized in much the same way as an integer or scalar. The 
essential difference is that a value for each of the vector or matrix components is specified 
in parentheses following the word INITIAL or CONSTANT. The values are separated by 
commas and are sometimes referred to as the initial list. 

For example, the declaration 

DECLARE VECT5 VECTOR(5) INITIAL(2.8, 1.3,3.7,0,0); 

defines a vector with the following initial value: 



"2.8"! 


1.3 


3.7 





L oJ 



Each element of the vector is initialized to the corresponding value in the initial list. The 
first element receives the first value, the second element the second value, etc. 

For a matrix, the elements are initialized to the values in the initial list as follows: the 
first row is initialized to the first values in the list (using enough of them to fill one row), 
then the second row is initialized, and so on. The declaration, 

DECLARE COORDMAT MATRIX(3,3) INITIAL(1. 7,2,0.9 ,8.2,6. 1,1. 1,^8,7.3,8.6); 

defines: 

.7 »-2 r&r0.9" 
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The arrows indicate the order in which the matrix components are assigned from the linear 
series of values in the initial list. 

The important fact to remember about MATRIX initialization is that the order in which 
values are assigned is by rows and not by columns. This row-by-row order also applies to the 
way matrix components are read and printed with READ and WRITE statements, and to 
arrays and the MATRIX shaping function, as will be shown later. This convention is com- 
monly called row-major order. 

Writing an initial list as in the above examples can be cumbersome if the vector or 
matrix is large. HAL/S offers some shortcuts. 

1. If only one value is specified in the initialization attribute, all of the components 
of the vector or matrix are initialized to that same value. For example: 

DECLARE V VECTOR(3) INITIAL(IO), 
M MATRIX(3,4) INITIAL(O); 

10 - 
10 

;o_ 

If several successive values in the initial list are identical, the programmer can specify 
a repetition factor and write the common component-values just once. The repeti- 
tion factor is a number indicating how many times the value is to be repeated, and it 
is separated from the value by a # symbol. Using repetition factors, the initialization 
attribute, 

INITIAL(1. 5,1 .5,1.5,2.7,2.7) 

may be written more succinctly as, 

INITIAL(3#1.5,2#2.7) 

which is entirely equivalent to the longer form. The repetition factor may also 

precede a parenthesized, comma-separated list of values, in which case the whole 

list is repeated. Repetition factors may be nested to form a variety of patterns. For 

example, a 3x3 matrix may be initialized to the identity matrix by the initialization 

attribute, 

INITIAL( 1,2#(3#0,1)) 

If only some components are to be initialized there are two ways to achieve the 
desired affect: 

a) A repetition factor may be specified without an accompanying value, in which 
case the specified number of components are passed over and left uninitialized ; 
or 

b) the last item in the initial list may be an asterisk, which indicates that the re- 
maining components are not to be initialized . 

For example, the statement, 

DECLARE A MATRIX(3,5) INITIAL (1,2,3,4#,8,6,3#.09,*); 

creates the matrix: 
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"1 2 3 x x 
x x 8 6 .09 
.09 .09 x x x 

where x indicates an uninitialized component. 

The symbols # and * are used in vector and matrix initial lists as well as in other con- 
structs. They can also be used in the initial list in the declaration of an array or structure and 
in shaping functions. As described later, shaping functions allow the creation of vector and 
matrix quantities as in the following statement: 

M = MATRIX(1,2#(3#0,1)); 

Another attribute which is usually omitted, but is sometimes useful is RANGE. 

DECLARE I INTEGER RANGE (1 to 100); 
DECLARE V VECTOR (100) RANGE (-.999 to .999); 

If I is always used as a subscript for VECTOR V, it only takes on values from 1 to 100. 
In this example, the elements of V only assume values from -.999 to .999 inclusive. Spec- 
ifying RANGE may or may not generate run time checks, depending upon the implementa- 
tion. Some implementations may also use RANGE to pack variables and save storage within 
DENSE structure nodes. 

All HAL/S variables must be defined before they are referenced. The DECLARE 
statement is the most common means of defining an identifier, but other possibilities 
such as use of the TEMPORARY statement will be introduced in later chapters. While there 
are additional data types and attributes, all of the forms of the DECLARE statement have 
been presented. 

Exercises 

2.3A Write declare statements corresponding to the table below. 



IDENTIFIER 

X__DELTA 

Y_DELTA 

TIME_DELTA 

DELAY_FACTOR 

TEMPI 

TEMP2 

TEMP3 

COUNT 

POINT_A 

ORIGIN 

TRANSFORM 



TYPE 

SCALAR 

SCALAR 

CONSTANT 

CONSTANT 

SCALAR 

SCALAR 

SCALAR 

INTEGER 

VECTOR 

CONSTANT 
VECTOR 

MATRIX 



INITIAL/CONSTANT 

INITIALIZED TO 1 
INITIALIZED TO 1 
VALUE 1 
VALUE .5 



INITIALIZED TO 1 



VALUE (0,0.0) 



INITIALIZED TO 
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2.4 EXECUTABLE STATEMENTS 

This chapter stresses the HAL/S source and listing formats and the arithmetic operators 
and data types. Enough executable statements have been introduced to write simple pro- 
grams. The information about executable statements which will be assumed in iater chapters 
appears below: 

The assignment statement consists of one or more target variables, an = sign, and an ex- 
pression. To store the value of an expression into several variables at once the multiple as- 
signment is used, as in: 

I, L K = 0; 

A, B. C = (A+B+C)/3; 

Each target variable must be of the same type as the expression on the right. Conversions 
between integer and scalar, and single and double precision are automatically performed, 
however. 

The operands to the READ statement are a parenthesized channel number and a list of 
variables, e.g., 

READ(5) ALPHA, BETA, GAMMA; 

The channel number selects one of several external devices from which the variables are to 
be read. The data must be in a standard character format, so no additional control param- 
eters need be given. Chapter eight describes other options in the READ statement. 

The WRITE statement also includes an integer channel number. Its remaining operands 
may be expressions of any type. In the statement, 

WRITE(6) M, V, M**(-l), M**(-1)V; 

two matrix and two vector expressions appear. Matrices can be raised to any integral power 
1 ; minus one results in the "inverse" operation. The output format is described in Chapter 
Eight along with more details of the READ, READALL, WRITE and FILE statements. 

The PROGRAM and CLOSE statements have been described in this chapter. 

Most of the remaining HAL/S statements alter the sequential flow of control. These in- 
clude statements for conditional execution (Chapter 4), looping (Chapter 5), and subrou- 
tines (Chapter 7). Error control (Chapter 10) and real-time (Chapters 1 1 and 12) statements 
complete the set. 

Chapter three describes additional forms of the arithmetic expression. 
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End of Chapter Problems 

2A The following program will compute the roots of the polynomial 3X +4X-10 and 
print them out: 

ROOTS: PROGRAM: 

DECLARE SCALAR, 
ROOT1, ROOT2; 

ROOT1 = (-4+(4**2-4 3 (-10))**0.5)/6; 

ROOT2 = (-4-(4**2-4 3 f-10))**0.5)/6; 

WRITEC6) ROOT1, ROOT2; 
CLOSE ROOTS; 

Modify the program to read in three scalar values A, B, and C from channel 5, and 
compute the roots of AX 2 +BX+C. 

Note: Assume the input values will yield real roots. 

2B A ball is tossed straight outward from a height of 1 10 feet with a horizontal velocity 
of 4 ft/sec. Each time it hits the ground, it rebounds to 35% of its previous height. 

Write a HAL/S program to compute the time until the ball hits the ground for the 
third time, and how far it has traveled horizontally in that interval. 

The applicable equations of motion are: 

1. For an object dropping from height H to the ground or bouncing from the 
ground to height H, in time T, 

H=^gT 2 

where g = 32 ft/sec^ is the gravitational acceleration. 

2. Horizontal motion is independent of vertical motion, so if D is horizontal dis- 
tance traveled in time T at velocity V, 

D = VT 

2C An artificial satellite moves in a circular orbit of radius 4000 miles. Write a HAL/S 
program to compute how long it takes to make 1 revolution and write the result on 
channel 6. 

4?r 2 R 3 



Remember, P = /(MASS_OF_EARTH) 6.670 x 10~ 8 ln CGS units ' 

Say the MASSOF EARTH is: 5.983 x 10 27 grams. One mile equals 160934.4 cm. 
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2D Let ax + by = e, 

ex + dy = f, 

be a system of 2 equations in 2 unknowns. 

Write a HAL/S program to compute the solution of the system. 

The inputs a, b, c, d, e, and f are available on channel 5, and the solution x, y, 
should be written on channel 6. 

We are guaranteed that a solution does exist. 

Remember, Cramer's Rule states: 

ed-bf _ af-ec 

x " ad-bc y ad-bc 
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3.0 MORE BASICS 



This chapter describes additional aspects of the arithmetic expression, including sub- 
scripting and function invocation. One new non-executable statement is also presented, so 
that only new data types, and executable statements other than assignment are left to later 
chapters. 

3.1 BUILT-IN FUNCTIONS 

In addition to the arithmetic operators, HAL/S provides a set of built-in functions. 
When the name of one of these functions occurs in an expression, code is generated to in- 
voke the corresponding library routine. Built-in function names are HAL/S keywords and 
the run-time library routines are supplied with the compiler. Examples of several useful 
built-in functions can be given with the aid of a parallelogram: 




B 

The size and shape of a parallelogram are uniquely determined by the lengths of two ad- 
jacent sides and the angle between. These scalar quantities will be called LONG, SHORT and 
ALPHA. 



Taking the lower left corner as the origin of a coordinate system with an X axis ex- 
tending along B, the following program computes the coordinates of the corner points: 



COWERS: 

frogram; 

declare scalar, 

long, short, alpha! 
declare vect0r(2), 

ab, bc, cd, da; 
readi5) l0m3, short, alpha; 

AB = o; 

BC = VECTOR (LONG, 0); 
2 



DA = VECTOR (SHORT COS! ALPHA), SHORT SIN(ALPHAI) 
Z 



CD = BC + DA; 



WRITEI6) AB, BC, CD, DA; 
CLOSE corners; 
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The first assignment sets both components of the vector AB to zero. Any arithmetic 
variable may be assigned from the literal zero. Zero is the only such special case; it may be 
considered a typeless literal. 

The second assignment illustrates use of the VECTOR shaping function. The expression 
VECTORS (2) (LONG,0) represents a 2-vector whose components have the values LONG 
and zero. 

In the third assignment, the arguments to the VECTOR function are arithmetic ex- 
pressions. As a result, the first component of DA is set to the product of the length of the 
short side and the cosine of the angle ALPHA. The "Y" component of this vector is com- 
puted similarly, except that the sine function is used. 

The fourth assignment merely illustrates the "parallelogram rule" for vector addition. 

SIN and COS are algebraic built-in functions, listed in Appendix A. This category in- 
cludes SIN, COS, TAN and their inverses (e.g., ARCSIN) and the hyperbolic forms (e.g., 
SINH, ARCCOSH). Also included are LOG, EXP, and SQRT. For argument X, the latter 
functions are equivalent to Log e (X), e X , andVxT 

Each algebraic function returns a scalar value. The arguments may be any integer or 
scaler expression. An algebraic function name with its parenthesized argument is itself a 
scalar expression. Thus, function invocations may be nested, as in: 

ARCTAN(SIN(X)/SQRT(1-SIN(X)**2)) 

A function's arguments are always enclosed in parenthesis; as usual, the evaluation of an 
expression always starts at the inner-most parenthesis. In the expression above, "1- 
SIN(X)**2" is evaluated as "1-((SIN(X))**2)": The function invocation may be viewed as 
of higher precedence than exponentiation. Another interpretation of the same rule is that 
the value passed to a function is completely specified within the parenthesis; operators out- 
side the parentheses apply to the value returned. 

Before continuing to other classes of built-in functions, consider some general rules; 

1 . No built-in function modifies any of its arguments. 

2. A function name and its argument list together comprise an expression of some data 
type. 

3. A function argument may be any expression of the specified data type. 

4. All trigonometric functions receive and return angles in radians. 

5. Invalid arguments (e.g., SQRT(-l)) are indicated via runtime errors, as described in 
Chapter Ten. 

The parallelogram example also used the VECTOR shaping function. Shaping functions 
perform conversions. One function per data type is provided: The arithmetic shaping func- 
tions are VECTOR, MATRIX, INTEGER and SCALAR. The VECTOR and MATRIX func- 
tions will accept any number of arguments, each of which may be of any arithmetic type. 
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The second assignment statement of the example might be entered as: 

BC = VECTORS2(LONG,0); 

This statement contains the first subscript used so far. Whenever the VECTOR function pro- 
duces a vector of dimension other than three, the dimensionality of the result must be speci- 
fied as a subscript to the function. HAL/S uses the dollar sign (S) and a parenthesized list of 
expressions to indicate a subscript: when the subscript is a single token, such as 2 in the ex- 
ample, no parentheses are needed. 

The MATRIX shaping function may also be subscripted: a 3x2 matrix can be produced 
from the numbers 1—6 by : 

MATRIXS (3,2) (1,2,3,4,5,6). 

A three-by-three matrix can be produced without a subscript, as in: 

MATRIX (1,3#0,1,3#0,1). 

The number of values in the argument list of a shaping function must match the sub- 
script if one is supplied. Otherwise, the number of values must be three (for a vector) or 
nine (for a matrix). If supplied, the subscript must be either a single compile-time expression 
indicating the length of a vector or two expressions, indicating a pair of matrix dimensions. 
The product of these numbers is the number of components in the matrix. The dimensions 
of any vector or matrix expression must be known at compile-time. 

It is the total number of components in a shaping function argument list that must 
match the subscript. For instance, given: 

DECLARE M MATRIX, 

V4 VECTOR (4), 
V2 VECTOR (2), 
M22 MATRIX (2,2); 

All of the following are legal (since each list has 9 components): 

M = MATRIX (V4,M22,0): 

M = MATRIX (V4,0,V2,V2): 

M = MATRIXS (3,3) (M22,2#V2,0); 

Whenever a data aggregate appears in the argument list of a shaping function, it is "un- 
raveled" in the natural sequence (i.e., the same order as in initial lists, row-major). The 
VECTOR and MATRIX functions see their argument lists as a linear stream of scalars. If, 
for example, X, Y and Z are three 3-vectors, then MATRIX(X,Y,Z) is a 3x3 matrix in 
which the first row equals X, the second equals Y and the last contains the values from Z. 
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Shaping functions are the only class of built-ins which accept a variable length argument 
list. Others have a fixed number of arguments, each of a specified data type. As stated 
above, the functions in the "algebraic" class all take one scalar argument and return a scalar 
result. However, one basic rule in HAL/S is that wherever a scalar is expected an integer may 
be used, and vice-versa. In the assignment below, 

DECLARE I INTEGER INITIAL (4); 
I = TAN (I); 

first I is converted to a scalar, then the tangent is taken and finally the result is rounded to 
the nearest integer before assignment into I. 

Rounding is defined in the usual way: INTEGER (3.5) = 4, INTEGER (-1.4) = -1, 
and INTEGER (.4999) = 0. As indicated, there are INTEGER and SCALAR shaping func- 
tions analogous to the VECTOR and MATRIX functions. Since integer and scalar literals 
are written straightforwardly, and integer/scalar conversions are automatically performed, 
the INTEGER and SCALAR functions are less often needed than VECTOR and MATRIX. 
More applications of these functions will arise after arrays and non-arithmetic data types 
have been introduced. 

Rounding can also be performed by the ROUND function; this function allows explicit 
rounding without using an integer variable, as in: 

DECLARE SCALAR, OLD, NEW; 

WRITE(6) 'CHANGE IS', ROUND(100(NEW-OLD)/OLD), 
'PER CENT'; 

Character strings are described in chapter eight; character literals, such as 'per cent', are out- 
put unchanged by the WRITE statement. If OLD=3 and NEW=5, the statement above would 
produce: 

CHANGE IS 67 PER CENT 

The arithmetic functions include ROUND, TRUNCATE, FLOOR, and CEILING. The 
distinctions are shown in the following table : 





X = 


.3 


.5 


-1.7 


-1.3 


1.6 


ROUND (X) 







1 


-2 


-1 


2 


TRUNCATE (X) 










-1 


-1 


1 


FLOOR (X) 










-2 


-2 


1 


CEILING (X) 




1 


1 


-1 


-1 


2 



In words, TRUNCATE ignores the fraction, FLOOR always rounds down, and CEILING 
always rounds up. These functions always return an integer result. 
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The arithmetic class also includes ABS (absolute value) and MOD (modulus). The re- 
sult returned by these functions is of the same type as their argument(s). If the two argu- 
ments to MOD are of different types, the result is scalar. 

The remaining functions in this category, DIV, MIDVAL, ODD, REMAINDER, SIGN 
and SIGNUM, are described in Appendix A. It should be noted here that the DIV function 
causes an integer division. The remainder is discarded and the quotient is returned. No 
rounding is performed. When integers appear in a quotient written with "/", they are con- 
verted to scalars prior to the division. 

The only remaining category of functions to be discussed in this chapter is vector/matrix 



ilt-in functions: 








Name 


Argument 


Result 


Comments 


ABVAL 


Vector 


Scalar 


Magnitude, length 



UNIT 



INVERSE 
TRANSPOSE 
DET 
TRACE 



Vector 



nxn Matrix 
nxm Matrix 
nxn Matrix 
nxn Matrix 



Vector 



nxn Matrix 
mxn Matrix 
Scalar 
Scalar 



/ 



£ V: 



Vector of length 1 in the 
same direction. 

V/ABVAL(V) 

Same as M**(— 1) 

Same as M**T 

Determinant 

Sum of diagonal elements 
n 

i=l 



The program below illustrates some of the power and convenience of HAL/S vector/ 
matrix facilities. It first reads in four 3-vectors, X, Y, Z and V, and determines whether X, Y 
and Z span 3-space. Then it constructs an orthonormal set from X, Y, and Z yielding vectors 
Al, A2 and A3. Finally, these vectors are taken as the axes of a coordinate system, and V 
(the fourth input vector) is expressed in them. 

In this program, the determinant is used to find out whether X, Y and Z are linearly 
independent. If they are not, the second assignment statement (after Gram-Schmidt) may 
result in a runtime error, since unit of the zero vector is undefined. Since the problem is 
in 3-space, A3 can be computed by a trick: A1*A2 is orthogonal to both Al and A2, and 
of the length 1 . The transformation of V in the last assignment is conveniently done with a 
matrix; if, as in this program, the matrix is not saved, it may be more efficient to use the 
equivalent form: 



V = VECTOR(V.Al,V.A2,V.A3); 
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The remaining built-in functions are much the same as those presented here: Each is 
an expression of some data type, the arguments to each are of specified types, may be any 
expression, and so forth. They will be discussed after the appropriate concepts and data 
types have been defined. 



C3THO 
PRCC-P, 


JORMAL: 










THIS 
SET f 
V in 


PROGRAM COMSTRU 
ROM X,Y AH] Z A 
IT 


:ts an opthcnophal 
•1 then expresses 


DECLARE VECT29, 












X, Y, Z 


V, 


Al 


A2, 


A3; 


WP.1 


TE(6) DET(MATRIX(X, 


Y, 


zn; 




IF RESULT IS ZERO, X, Y AND 
BASIS ... EXPECT ERROR BELOt 


Z DO 


NOT FORM 


Al 


= UMIT(X); 










AJ 


= U'lITlY - (Y . 


AD 


Al 


; 




A3 


= ai * tz; 










V = 
CLOSE; 


MATRIXIA1, A2, 


A3) 


v; 







Exercises 

3 . 1 A What are the types and values of the following expressions? 

a) ROUND (ABVAL(VECTOR$2(SIN(0.5), COS(0.5)))) 

b) TRANSPOSE (MATRIX(1,3#2,3,3,4,5,6)) 

c) MATRIXS (2,3) (1,0,0,1,1,1) VECTOR(l,2,3) 

3. IB Write a HAL/S program to multiply the 3x3 matrix: 
9 8 7" 
6 5 4 
3 2 1_ 
by its transpose and write the result on channel 6. 
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3.1C Translate these mathematical expressions into HAL/S 

nA l+cos2x 
<v ^ 

b) tan - '/ Z \ (trig function is arctangent (inverse tangent)) 



:© 



c) m(rz— zr)sin6 — mrzScosS 

(use names like R_DOT, PHI, PHI_DOT, etc.) 

,, _i/ m/r— ma/n 

d) cos v — — 



_]/ 111/ 1 — Ilid/U \ 

(/.mE + H^) 



e) ln(tan(£ + £)) 

2 4 

(In = natural logarithm; use PI for n.) 

3.2 SUBSCRIPTS 

Subscripts are used to operate on components of larger entities. If V is a vector, V$l 
refers to the first component. 

Any vector or matrix variable or constant may be subscripted. This is done by ap- 
pending a dollar sign ($) and a subscript expression. If the subscript expression is a single 
token, as in XS3, no parentheses or other punctuation is needed. Any expression may be 
parenthesized: X$ (((3))) is equivalent. Parentheses are required if the subscript involves any 
operators; e.g.. V$(I+1). 

Since matrix subscripts are written with a comma (and thus are not a single token), they 
are always parenthesized, as in: 

M$(I,J) = M2$(I,1) M3S(J,1) + M2S(I,2) M3S(J,2) + 
M2$(I,3) M3S(J,3); 

Subscripting may be viewed as of higher precedence than the operators (+,— ,*,**,etc). 
Thus, V$I**2 is the square of the I" 1 component. This precedence is natural, since subscript 
computations seldom involve exponentiation. 

If a subscript expression is of scalar type it is rounded. The result must be in the range 1 
to N, where N is the declared dimension. Any integer or scalar valued expression may be 
used as a subscript. 

A single component of a vector or matrix is a scalar, and may be used in any context 
where a scalar variable is allowed. 

When an exponent contains a subscript, as in E**(V$1), the subscripted variable appears 
in the single line (source) format on the exponent line of the output listing: 

E VS1 
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In all other cases, a subscript is indicated naturally by its position in the listing rather than a 
dollar sign. When a subscript (or exponent) is lowered (or raised) in the listing, the outer 
parentheses (if any) are removed. In A$(BSC)**(N— 1), all of the parentheses are removed: 



E 
M 
S 
S 



N-l 



A position in 3-space can be represented by a 3-vector in a variety of ways. The program 
below uses subscripting to convert Cartesian to polar coordinates. The results consist of 
bearing (angle from X axis in horizontal plane), elevation (angle from x axis in vertical 
plane), and total distance. Angles are in radians, distance is in the original units. 



XrZ_TO_POLAR: 

PROSRAM; 

DECLARE P VECTOR; 

READ(S) P; 

WRITE16) ARCTAN1P / P ), ARCTAN1P / ABVALIP I, ABVALIP); 
2 1 3 2 AT 1 

CLOSE XYZ_TO_POLAR; 



This program assumes that the direction of P is in the same hemisphere as the positive x 
axis. A more general solution can be written using the ARCTAN2 function. 

One new construct appears in the example. P$(2 AT 1) is equal to VECTORS2 
(P$1,P$2): A 2-vector, consisting of the X and Y components of P. ABVAL(P$(2 AT 1)) is 
the distance from the origin to a point in the horizontal plane directly beneath P. 

"2 AT 1 " is one type of partition subscript. It can be used to specify a slice of a vector 
in terms of the partition width and the number of the first included component. The general 
form is number AT expression. "Number" is any integer-scalar compile-time expression, 
greater than one and less than the corresponding declared dimension. While partition widths 
must be known at compile-time, the starting component number may be any integer or 
scalar expression. 

Any partition of a vector is a vector. A partition of length N can be used in any con- 
struct where a declared VECTOR(N) is allowed. 



P$(2 AT 1) can also be written as P$(l TO 2). Here, the indices of the first and last 
components to be included are given, instead of the width and the first component. 

The dimension of P$(x TO y) is 1+y— x. Since the dimensionality of every vector-matrix 
expression must be pre-determinable, both x and y must be known; neither may be an ex- 
pression involving a variable. 
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Given V = VECTOR(10,20,30,40,50,60,70), 

VS2 = 20, 

VS(2 TO 4) = (20,30,40), 

V$(3 AT 2) = (20,30,40), 

V$(3 AT VS3/10) = (30,40,50), 

V$(4 TO #) = (40,50,60,70), and 

V$(2 AT #-1) = (60,70). 

The sharp character (#) which appears in the last two partitions means "the last". 
VS(4 TO #) can be read as "the fourth through last components". 2 AT #-1 is a way of 
specifying the last two components. For the 7-vector above, any occurence of # can be 
replaced by 7. 

A subscripted vector is either a scalar or a vector, depending on the type of subscript. A 
subscripted matrix may be a scalar, a vector, or a matrix. If both subscripts are simple (I,J) 
the result is scalar. If one is simple and the other a partition (1,1 TO #), the result is a 
vector. If both are partitions (2 AT 1, 1 TO 2), the result is a matrix. Output listing over- 
marks indicate the resultant of type after subscripting. 

As usual, a matrix that has been subscripted down to type and dimension "X" can be 
used in any context where a variable of type and dimension "X" is allowed. 

The I th row of a matrix M is M$(I, 1 TO #). This can also be written as M$(I,*). The 
I th column is M$(*,I). The asterisk means "all of a dimension". In every case, it is equiva- 
lent to" 1 TO#". 

Using this form of partition subscript, the elementary row operations used in reducing 
matrices can be expressed compactly: 



ROWS: 
program; 

declare m matrix, 

C SCALAR, 
TEMP VECTOR, 
I INTEGER, 

J integer; 

MULTIPLY A ROW BY A (NONZERO) CONSTANT: 



M = C M ; 
I,* I,* 



ADO A CONSTANT MULTIPLE OF ROW J TO ROW I: 



M = M * C M ; 

I,» I,* J,» 



Continued 
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EXCHANGE 


ROWS I AND J: 


TEMP = 


m ; 




i,* 


M = 


m ; 


I,* 


J,* 


M = 


temp; 


J,* 




CLOSE rows; 



Before leaving the topic of subscripting, one caution is in order. HAL/S stores matrices 
in row-major order. This means that a row of matrix is stored in a contiguous block of 
memory. The scalars in a column of a matrix do not occupy consecutive locations. This may 
make operations on matrix columns less efficient than corresponding operations on rows. 
A few restrictions on the use of matrix columns (ASSIGN parameters, the input FILE state- 
ment and NAME variables) are described later. Matrix columns are acceptable in all con- 
structs presented so far. 

This section has described component subscripting. Most of the material also applies to 
array and structure subscripts, but there are some differences. These topics are discussed in 
chapters 6 and 9. Component subscripting applies to vectors, matrices, character strings and 
bit strings. 

The term subscript expression has been used to stress the fact that there are forms which 
can occur only in subscripts. These are partitions. The forms A TO B, A AT B, *, and #±N 
are used only in subscript expressions. 



An important point to remember from this section is that the set of contexts in which 
a variable may be used does not depend on the presence of subscripting, but on the data- 
type which results after the subscript has been applied. 
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3.2A For the following vectors and matrices, 



VI 








10 


1 




11 


2 
3 


V2 = 


12 
13 


4 




14 


5 




15 



M22 



5 6 

7 8 



M35 = 



7 4 1-2-5 
6 3 0-3 -6 

5 2-1-4 -7 



a) Give the values of V1$(2),M22S(2,1), and M35S(2,3). 

b) Give the values of V2$(3 AT 4), M22S(*,1), and M35S(2 TO 3, 4 AT 2). 

c) Write the necessary declarations and initializations to produce Vi, V 7 , M22, and 
M35. 



:.2B Write a HAL/S program that will compute the dot products of 



with each of the columns of 



1 2 3 
4 5 6 
7 8 9J 



leave the results in a vector, RESULT_X, and write the results on channel 6. 
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3.2C The diagrams below represent the values of various vectors and matrices. 



V31 = 



"0" 




"i 








11 


1 


V32 = 


8 




V33 = 


12 


.2. 




.9. 






13 








-1 


-2 -3 






M33 = 




-4 


-5 -6 












-7 


-8 -9 





M22 



[21 2 
[23 2 



What values will the following code print: 



V41 = VECTOR$4(M22); 

M22 = MATRIX$(2,2) (M33$(2 AT 2, 2 AT 2)); 

WRITE(6) V41; 

WRITE(6) M22; 

M33 = MATRIX$(3,3)(V31,V32,V33); 

WRITE(6) M33; 

M22 = MATRIX$(2,2)(V31,V32$2); 

WRITE(6) M22; 



3.3 THE REPLACE STATEMENT 

The REPLACE statement provides a capability similar to the macros of other languages. 
The REPLACE statement contains an identifier (termed the replace name or macro name) 
and a sequence of characters, termed the macro text. The REPLACE statement instructs 
the compiler to substitute the macro text for every subsequent occurrence of the macro 
name. 



The REPLACE statement is not executable; it may only occur in the declare group. 
The following represents one common use of REPLACE: 

REPLACE PRINT BY "WRITE(6)"; 
REPLACE PUNCH BY "WRITE(7)"; 
REPLACE CARDS BY "5"; 
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Any occurrence of PRINT subsequent to these statements will be converted to WRITE(6) 
by the compiler. The REPLACE statement causes the compiler to substitute the replace text 
for the replace or macro name wherever it occurs as a token in the following source. Using 
the replace macros defined above, 

READ(CARDS) X; becomes READ(5) X; 

PRINT X, Y, Z; becomes WRITE(6) X, Y, Z; 



and 



PUNCH X, Y; becomes WRITE(7) X, Y; 



The macro is not expanded in the listing. Only the macro name appears. Each reference 
to a macro is automatically underlined, however; this informs the reader that a replacement 
was done in order to avoid a possible mis-interpretation. 

The replace text is enclosed in double quotes ("). This is the only use of the double- 
quote character in HAL/S. The replace text may be any sequence of characters not con- 
taining ". The replace name or macro name is an identifier and follows the conventions 
described in chapter two. Since REPLACE is a HAL/S statement, it ends with a semi-colon. 

The macro name is only recognized when it appears as a token. Given, 

REPLACE A BY "1"; 

and 

DECLARE ABLE SCALAR CONSTANT(A); 

only one replacement is performed. The other A's are part of keywords and an identifier, 
not complete tokens. 

Replace macros are commonly used to parameterize I/O channels, as indicated above, 
and the dimensions of variables, as in: 

REPLACE UNKNOWNS BY "6"; 

DECLARE AUGMENTED MATRIX(UNKNOWNS,UNKNOWNS+l); 

HAL/S does not allow variables to be used for either channel numbers or dimensions, 
but since REPLACEments are done at compile-time, macro names may be used where 
numbers are required, provided the replace text is an expression computable at compile- 
time. 

The compiler will process the DECLARE statement above as if DECLARE AUG- 
MENTED MATRIX(6,6+1); had been coded. 
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Replace text is commonly a single number, but may be any string. For example, 

REPLACE DUMP BY "WRITE(6) X,Y,Z,GAMMA"; 

could be a useful abbreviation while debugging. The use of replace macros to abbreviate 
HAL/S keywords is strongly discouraged. HAL/S was designed to maximize readability 
rather than "writeability". It can be very difficult to decipher a program in which macros 
are used inappropriately. The time spent actually typing a program is generally insignifi- 
cant compared to the time spent reading it. 

The program below illustrates a parameterized replace statement. Here the macro is 
used to generate a table (for section 3.4) without writing a loop. 



TABLE-' 


frcc-rah; 


REPLACE LDG2CX) BY "LOG(X)/LOG! 2 )"; 


REPLACE EHTRY(N) BY "KRITEC6) N, £**! N-l ) ,N/L0G2( 10 )"; 


ENTRY! S>; 


ENTRrUZ); 


ENTRY! 16 1; 


EMTRYIlSl; 


ENTRY 12'*); 


ENTRY! 32 1; 


ENTRY! 36); 


CLOSE table; 



In this example, X and N are macro arguments. Wherever N appears in the replace text of 
the ENTRY macro, the actual parameter (8, 12, etc.) is substituted. Whenever the para- 
meter, X, of the Log2 macro occurs in the text, the value 10 is substituted. 

The ENTRY macro generates an entire, statement. Note that no final semi-colon was 
placed inside the ending quote: This produces a better listing since a semi-colon must 
terminate each reference to the macro, triggering a new listing line. 

The names of previously defined macros may be used in the replace text, as in LOG2 
above. The compiler will continue to make substitutions until no macro names remain, 
before any other processing. An infinite expansion results if a macro's own name is used 
in its replace text. Statements like, 

REPLACE X BY "X+l"; 



not only cause error messages, but may abort the rest of the compilation. 

The above is a brief introduction to the HAL/S macro capability. Additional features 
and more detail can be found in the Language Specification. 
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3.4 THE PRECISION ATTRIBUTES 



Most of the material so far has been concerned with the arithmetic expression. Rules 
for forming expressions from identifiers, operators, literals, and keywords have been pre- 
sented. Every expression has a data type; the type is determined by the types of the identi- 
fiers and functions used, the operators which combine them, and the order of evaluation. 
Each expression also has a precision. 

Arithmetic identifiers and expressions are of either SINGLE or DOUBLE precision. 
All previous examples have been single precision. Double precision variables represent 
values to more significant digits than single precision variables. 

Any arithmetic operation involving a double precision operand is done in double pre- 
cision. The result is also of double precision. Thus, the usual method for specifying that a 
computation should be carried out to more digits is by declaring some or all of the variables 
to be double precision. 

The computation in the write statement below is performed in double precision. 



parallax: 
frcgram; 

declare eahthj3rbit constank 92.9e6 1 ; 

declare vect0r(2), 

sprins_readiug, fall reading; 

declare deviation scalar doublet 

read15) spring_rea3ing, fall.reading; 

deviation = a6val(sfrihg_rea0ins - fall_reaoins) / z; 
kritei6.-) 'distance^', earih_orbit / tan( deviation), 'miles' 
CLOSE parallax; 



This program could be used to compute the distance to a star based on its apparent 
change of position as the earth moves 180° in its orbit (186 million miles). The input data is 
a pair of angles in radians representing the star's direction in the Fall, and another set taken 
in the Spring. The diagram below illustrates the algorithm in 2-space: 



\ d / 



fall ^ sori 



spring 
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Double precision is used in the example because a very large number is computed from 
a very small number using the tangent function near a zero. The double precision tangent 
routine is invoked, and the division of 93 million by the result is performed in double pre- 
cision. Thus, the expression, "EARTH_ORBIT/TAN(DEVIATION)" is of type double 
precision scalar. The WRITE statement outputs all the digits of its operands. 

The arithmetic in the preceding assignment statement is done in single precision. 
Whether or not this is adequate depends on the provision of the measurements and the 
number of digits in a SCALAR SINGLE. One radian is approximately 2 x 10-> arc-seconds. 
If the physical measurements are accurate to the nearest half second, then six decimal 
digits of precision would be enough.* The value of the expression is converted to double 
precision before it is stored into deviation. 

The number of digits in the representation of a scalar (of either precision) is imple- 
mentation-dependent. These numbers are specified in the User's Guide. A rule of thumb 
for scalars is one decimal digit for every 3 1/3 bits of mantissa. 

If the measurements have more significant digits than can be contained in a single pre- 
cision scalar, the whole program could be done in double precision: 

DECLARE VECTOR(2) DOUBLE,S,F; 

READ(5) S,F; 

WRITE(6) EARTH_ORBIT/TAN(ABVAL(S-F)/2) ; 

This version is written less mnemonically, and the assignment and write statements are 
combined. These simplifications have no effect on precision. 

All of the computations in this form are done in double precision. This is triggered 
entirely by the DOUBLE keyword in the declaration of S and F. Note that there is only 
one name each for the tangent and absolute value functions, whether single or double 
precision. The double precision form of a built-in function is automatically invoked when 
one or more arguments are of double precision. The value returned by a built-in function 
is of the same precision as its argument. Since ABVAL(S— F)/2 is a double precision ex- 
pression, the double precision version of TAN is selected. 

Double precision expressions are formed under exactly the same rules given for single 
precision. No restrictions apply to double precision variables that do not apply to single 
precision variables of the same type. Precision is normally specified in declarations rather 
than expressions. 



This program also assumes that the radius of the earth's orbit is exactly 92.9 E6 miles, and that the read- 
ings are made at exactly the same time of day. 
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The variables I, S, V, and M used in previous sections could have been declared as: 

DECLARE I INTEGER DOUBLE, 
S SCALAR DOUBLE, 
V VECTOR DOUBLE, 
M MATRIX DOUBLE; 

This would not necessitate any changes to the expressions used. 

The DOUBLE attribute follows the data type in an attribute list. It may be either 
before or after the other minor attributes such as initialization, LOCK, and AUTOMATIC; 



DECLARE COVAR MATRIX(5,5) INITIAL(O) DOUBLE; 
DECLARE V VECTOR(5) DOUBLE INITIAL(5#1); 

Precision applies to all four arithmetic types. Either SINGLE or DOUBLE may be 
specified in the attribute list of any integer, scalar, vector, or matrix. Since single precision 
is the default, it need not be specified in declarations. 

Double precision vectors and matrices are composed of double precision scalars. All 
of the vector-matrix operators and functions have both single and double precision imple- 
mentations. As before, double precision routines are selected when either operand is 
double, or when any built-in function argument is double. 

Since integers, double integers, single scalars and double scalars may be freely mixed 
and substituted for each other, these four combinations typically correspond to different 
sets of computer registers or machine instructions. Conversions of integer to scalar and 
single to double are made automatically when operand types are incompatible. Since in- 
teger and single precision operations are generally more efficient, data is left in the simpler 
forms whenever possible. 

The type and precision of an expression are determined solely from the expression 
itself. Neither attribute depends on the context in which the expression is used. The pre- 
cision of the expression in an assignment statement is not determined by the precision 
of the target variable on the left hand side. In the following, "10000 N" is a single pre- 
cision expression, since neither operand of the multiplication is double: 

DECLARE D SCALAR DOUBLE; 
DECLARE N INTEGER INITIAL(20); 
D = 10000 N; 

The right-hand side is of type single precision integer. It will be converted to scalar double 
before assignment to D, but the multiplication is done in single integer mode. 
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Table 1 shows the range of integers with various word sizes. If the code above is ex- 
ecuted on a computer which represents single integers in 16 bits, the wrong answer will 
be produced. The code can be corrected by adding an explicit precision specifier: 

D = 10000 NS((& DOUBLE); 

The forms "(SSINGLE" and "gDOUBLE" may be attached as subscripts to any arith- 
metic variable. In the example above, "N$(@DOUBLE)" is of type integer double. Thus, 
the multiplication is done in double precision and no accuracy is lost. 

The precision specifier may also be attached to shaping functions, as in: 

DECLARE VECTOR, VI, V2, V3; 

DECLARE M MATRIX DOUBLE: 

M = MATRIX$(@D0UBLE,3,3)(V1,V2,V3): 

The precision specifier precedes any subscripts in a shaping function. 

Table 1 

Range of 
# of Bits Integer # of Digits 

8 128 2.4082393 

12 2048 3.6123590 

16 32768 4.8164796 

18 131072 5.4185390 

24 8388608 7.2247190 

32 214748360 9.6329593 

37 3435973800 10.837079 

Empirically, double precision algebraic routines give better performance near zeros 
and singularities than their single precision counterparts. These routines are generally 
implemented via polynomials, prefaced with code to identify the quadrant or other range 
of the argument. The tangent routine, for an argument < X < tt/2, might use a poly- 
nomial of the form: 

Tan x = A + Bx + CX 2 + DX 3 + EX 4 + FX 5 

If the value DEVIATION in the parallax example has the value 1E-6 then the tangent 
will be: 

A + Bxl0~ 6 + CxlO -12 + DxlO -18 + Exl0~ 24 + FxlO" 30 . 

The operation X = X + 10 — N X, where n is greater than the number of digits contained in 
a scalar, does not change X. 
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When two floating point numbers are added, the exponents are first equalized by 
shifting one of the mantissas. It is this shifting that causes the loss of significant digits. When 
two floating point numbers are multiplied, no shifting is required. The same situation holds 
in fixed point, though any shifts required for addition and subtraction must be explicitly 
coded. 

In the parallax example, double precision allows the addition of more terms of the poly- 
nomial used to approximate the tangent function. Double precision generally is needed 
when numbers of greatly different magnitudes are added or subtracted, and when a large 
number of output digits are needed. The latter case is less common, since neither humans 
nor digital-analog converters can use more than a few digits directly. 

The arithmetic expression is summarized in the next section. All of the statements made 
apply equally to single precision, double precision, and mixed. Operations which reference 
one or more double precision values are done in double precision. More digits are obtained, 
at greater expense in memory and execution time. Some implementations have fixed point 
scalars; the Language Specification describes the explicit scaling (shifting) operators which 
are used in these implementations. More details can be found in the appropriate User's 
Manual. 

3.5 SUMMARY OF THE ARITHMETIC EXPRESSION 

An arithmetic expression has one of the following forms: 

1. An identifier. This may be an integer, scalar, vector, or matrix variable or constant 
of either precision. 

2. A literal. No sub-classes of numeric literals are defined. 

3. A subscripted identifier. Partition and simple subscripts are allowed, as well as ex- 
plicit precision specifiers and scaling operators. 

4. A function invocation. Both built-in and user functions may have zero or more 
arguments, which are themselves arithmetic expressions. Shaping functions may also 
have subscripts. 

5. A further expression prefixed by a minus sign. Any arithmetic type may be negated. 
An expression preceeded by "+" is allowed, but functionless. 

6. A further expression in parentheses. The parentheses override precedence rules, and 
allow scaling operators and precision specifiers to be attached to expressions. 

7. Two expressions separated by an operator. Only certain combinations of operand 
types are allowed for each operator. 

The list above is a recursive definition of the syntax of the arithmetic expression. 
Expressions may be nested via forms three through seven. 

The compiler evaluates an expression outward from the most deeply-nested parentheses. 
Within a set of parentheses, the compiler first evaluates any subscripts. Operators are applied 
to the components selected by the subscripting. 
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The table below shows the arithmetic operators in the order in which they are evaluated 
when not overridden by parentheses: 

Operators in Decreasing Precedence 

** Exponentiation. Applies to integers and scalars. For matrices, 

the exponent must be either an integer or the character "T". 
Raising a matrix to the "T" power always indicates trans- 
position of rows and columns. Integer powers apply only to 
square matrices. If I is negative, M**(I) is equal to INVERSE 
(M)**(-I). 

multiplication Indicated by a blank. Multiplication is allowed between any 

two types, provided the "inner dimensions" match. Resulting 
type given by outer dimensions. 

* Cross product. Applies only to 3-vectors. The result is a 

3-vector, given by: 

Result = Vector(X2Y3-X3Y2,X3Y 1 -X 1 Y3,X,Y2-X 2 Y 1 ). 
The resulting vector is orthogonal to X and Y, and of magni- 
tude (ABVAL(X)ABVAL(Y)SIN(0)), where 6 = the angle 
between X and Y. 

Dot, scalar, or inner product. Applies to vectors of equal 
dimension. The result is a scalar equal to the sum of the 
products of corresponding components. It also equals the 
product of the magnitudes of the vectors and cosine of the 
angle between. 

/ Division. The left operand may be integer, scalar, vector, or 

matrix. The right must be integer or scalar. The result has the 
same dimension as the left operand, but is never integer. 

+, - Addition and Subtraction, If one operand is scalar, the 

other may be either integer or scalar. Otherwise, the two 
operands must be of the same type and dimension. 

- Negation. Applies to any data type. The result is of the same 

type. 

Operators of equal precedence are evaluated left to right, except for exponentiation and 
division which are evaluated right to left. 

Before non-arithmetic expressions are introduced, a number of statements which alter 
the sequential flow of control will be presented in chapters four and five. 
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Exercises 

3.5A HAL/S has seven infix operators: 

+ _ < > * / ** 

Which infix operators are legal for the following pairs of data types? The characters 
< > represent a blank, meaning multiplication. 

Of what datatype is the result for each legal operation? 



i) SCALAR 

ii) SCALAR 

hi) INTEGER 

iv) INTEGER 

v) VECTOR 

vi) VECTOR 

vii) VECTOR 

viii) INTEGER/SCALAR 

ix) MATRIX 

x) MATRIX 



SCALAR 

INTEGER 

SCALAR 

INTEGER 

VECTOR 

MATRIX 

INTEGER/SCALAR 

VECTOR 

MATRIX 

INTEGER/SCALAR 



End Of Chapter Problems 

3A Write a HAL/S program that will read 2 vectors from channel 5 and write the angle 
between them on channel 6. 

Remember, V].V 2 = I Vj II V 2 | cos d 

where d is angle between Vj and V 2 . 

3B There are occasions when it is necessary or advantageous to shift one's frame of ref- 
erence. These occasions call for a translation and/or rotation of the coordinate sys- 
tem. Say the old axis (x, y) is shifted to the new axis (x', y') in the following 
manner; the x, y origin is shifted to (x Q , y ) and rotated by a degrees as shown: 
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y y 




( x o> y ) 



3C 



The resulting translation equations are : 

x' = (x - x Q ) cosa + (y - y Q ) sina 
y' = ~(x - x ) sina + (y - y ) cosa 

Write a HAL/S program that will translate 2 coordinates in the x, y system to new 
coordinates in x', y' where x = 54000, y = 1 18000, a = 17°. The two coordinates 
are available on channel 5 and should be written on channel 6. 

Remember that HAL/S trigonometric built-ins require angles in radians. 

Write the right half of the following 4 assignments for the partitions in matrix M 
below 



a) V4 = 

b) M22 = 

c) M34 = 

d) V10 = 



where 



V4 is a 4 vector 
M22 is a 2x2 matrix 
M34 is a 3x4 matrix 
VIOisa 10 vector 
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4.0 CONDITIONAL EXECUTION 

The statements in a program are executed sequentially, except when a flow control 
statement is executed. The flow control statements can be loosely categorized by their use 
for decisions, loops, and subroutines. These groups are described in chapters four, five, and 
seven. 

Although the HAL/S assignment statement is quite flexible, only a limited set of pro- 
grams can be written without flow control statements. The ability of digital computers to 
evaluate conditions and select alternatives is the essence of their power. 

4.1 IF. . THEN. . .ELSE 

A choice between two alternatives can be written with the HAL/S IF statement: 

IF A = THEN WRITE(6) 'ZERO'; 
ELSE WRITE(6) A; 

In this instance, the two alternatives are executable statements and the test is a comparison. 
The first alternative is called the then clause, the second the else clause. 

IF is a compound statement; i.e. it is composed of further statements. The concept of 
a statement containing "sub-statements" is common in HAL/S: It will be useful to define 
the entire sequence, "IF comparison THEN statement ELSE statement" as a single state- 
ment, thereby: 

Unless the then or else clauses contain further flow control statements*, control passes 
to the next sequential statement after an IF statement. 

There are two equivalent graphical representations of the IF statement: 

Standard Flow Structured Flow 




IF 
CONDITION 



> 



s , 


THEN 


THEN 
CLAUSE 


? ' 


ELSE 








ELSE 
CLAUSE 







"And only from the set EXIT, REPEAT, RETURN and GO TO. 
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The form on the left illustrates the rule above by the explicit joining of two arrows at 
the bottom. The system illustrated on the right is appropriate to structured programming 
languages in which complex decisions are represented through nesting of compound state- 
ments, all of which have one path in and one path out. All of the HAL/S flow control 
statements (except GO TO) can be represented in structured flowcharts. 

The directions of the lines in a structured flowchart are implied. Vertical lines are always 
traversed top to bottom. Horizontal lines are always followed left to right and back. Lines 
may intersect only at the points of IF and DO CASE statements. There is no provision for 
overriding the natural direction. 

The above rules obviously limit the class of programs that can be represented. However, 
the forms that have been ruled out have been shown to be symptomatic of programs that 
are difficult to read and maintain. Any algorithm which can be expressed by a standard 
flowchart (where square boxes contain HAL/S assignments) is equivalent to some HAL/S 
program, without GO TO statements, which can be represented by a structured flowchart. 

The IF statement can select an alternative based on the results of a boolean combination 
of several comparisons. A comparison consists of two expressions separated by a relational 
operator, as in: 

IF A = THEN . . . 

IF N > 12 THEN . . . 

IF B**2 < 4 A C THEN . . . 

The complete list of relational operators is: 



= 


exact equality 


~l = 

NOT = 


not exactly equal 


> 


greater than 


> = 


greater than or equal 


< 


less than 


< = 


less than or equal 


~l > 
NOT> 


not greater than (same as <=) 


NOT< 


not less than (same as >=) 



Since the character "H" does not have a standard graphic across all systems, the keyword 
"NOT" may be freely substituted for it. 

All of the operators above may be used between any combination of integer or scalar 
single or double expressions. When necessary, integers are automatically converted to 
scalars, and single precision is raised to double before the comparison. 
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However, only the first two relational operators (=and _ l=)can be used between vectors, 
and matrices. Two vectors or matrices may be compared for equality or inequality if they 
have the same dimension. They are equal if each pair of components is exactly equal, and 
unequal otherwise. 

It is not generally useful to compare scalars, vectors, or matrices for equality. In the 
statement, 

IF A = B THEN WRITE(6) 'PURE COINCIDENCE'; 

where A and B are scalars, the WRITE statement is executed only if every digit in A is the 
same as in B. Due to the finite precision of scalars and roundoff problems, if B had been set 
by 

B = A/3; 

B = B + 2 A/3; /*l/3 A + 2/3 A*/ 

B would probably not be equal to A. Scalars can be tested for approximate equality as in: 

IF ABS(A-B) < EPSILON THEN . . . 
where EPSILON is "sufficiently small", e.g., 

DECLARE EPSILON CONSTANT(.OOOOOl); 



EPSILON = (A+B)/16**(.25 MANTISSA^LENGTH); 

etc. 

The keywords AND, OR, and NOT (or their equivalents, &, I, and ~1) may be used to 
combine several comparisons in one IF statement. Parentheses are generally required around 
each simple comparison. For example, 

IF "(AX)) AND (A<100) THEN ... 

IF NOT((A<=0) OR (A>=100)) THEN . . . 

Both of these forms will result in the execution of the then clause if (and only if) 
< A < 100. The first test checks whether A is in the given range. The second test is 
equivalent since it checks whether A is not outside the range. The sense of any comparison 
or combination thereof can be reversed using the NOT keyword as shown in the second 
test. This use of NOT requires a parenthesized argument. 
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Suppose a number is divided into one of three ranges, as shown: 

IF N < 10 THEN R = 1; 
ELSE IF N < 20 THEN R = 2; 
ELSE R = 3; 



Here, the else clause of an IF statement is an entire IF. 
be diagrammed as follows: 



.THEN. . .ELSE group. It may 



IF N<10 



> 



THEN 



R=l 



ELSE 



IF N<20 



) 



< THEN 


R=2 


/ ' 


ELSE 








R=3 







The THEN clause of an IF. . .THEN. . .ELSE group may not be an IF statement.* 
A four way branch can be written with a DO. . .END group, as described in the next sec- 
tion. There are no restrictions to the THEN clause of an IF statement if no ELSE clause 
is present. 

The IF statement allows the selection of one or two alternatives based on the evaluation 
of a comparison. When no action is required unless the test succeeds, the else clause may be 
omitted entirely: 

IF A > THEN B = SQRT(A); 

This statement is functionally equivalent to: 

IF A NOT > THEN; 
ELSE B = SQRT(A); 

Here the then clause is just a semicolon, which is the HAL/S equivalent of a no-op or null 
statement. 

IF. . .THEN. . .ELSE may be viewed as a single statement. The then and else clauses 
each contain a further single statement. Any executable statement is allowed in the else 
clause; the then clause may contain any executable statement except a further IF. . .THEN 
. . .ELSE. The else clause may also be omitted entirely. 



♦This rule avoids the "dangling else" problem common to ALGOL-like languages. 
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Exercises 

4.1 A What is wrong with the following HAL/S conditional statements (in which all vari- 
ables are of SCALAR type): 

a) IF A < B < C THEN MIDDLE = B; 

b) IF B < C THEN 

IF C < D THEN B = D; 
ELSE B = C; 
ELSE C = B; 

c) IF RADIUS > & NOT RADIUS > 1 THEN 

WRITE(6) PI RADIUS**2; 

4. IB Where possible, convert these standard flowcharts to structured flowcharts, without 
duplicating or eliminating boxes. Indicate why the others cannot be converted. 

a) 
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b) 



c) 



TRUE S,\ FALSE 



Mi> 



Al 




TRUEyQv FALSE 



A2 



TRUE >%X FALSE 



^UE^K 



A4 



A5 



A3 



Al 



tru: 




TRUE / tt \ FALSE 



c2 xFALSE | A2 
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d) 



A2 




TRUE /\ FALSE 
CI) 



TRUE/foX FALSE 



W\w. 



TRUE/' ,\ FALSE 



J^C3> 



<> 



FALSE 



Al 



4.1C Tell whether the following conditions are satisfied, not satisfied, or illegal. Assume 
that: 



A, B, C, D are scalars 

V, S are 3-vectors 

A = 7.0 C = 12.0 
B = 4.0 D = 3.2 

V = (2 4 6) S = (3 4 12) 

a) A < B 

b) C > (NOT B) 

c) (A 1 = B) & (C > = D) 

d) (S "1 = V) OR (B 1 > C) 

e) V < S 

f) (V.V < C) & (NOT(V.S < C)) 
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4. 1 D Write the following descriptions in relational expressions: 

g) A is greater than B but less than C. 

h) The vector V is not equal to the vector S and C not less than D unless D is 
equal to 4. 

4. 1 E Write HAL/S code implementing this flowchart: 




AREA = WL 




THEN 



SQ = 



ELSE 



THEN 



ELSE 




WRITE (6) 
'NO SQUARE 1 



IF 
AREA < 4 



s . 


THEN 


SQ = 


= 




ELSE 










SQ = 


= 1 







THEN 



WRITE (6) 
'SMALL SQUARE' 



ELSE 



WRITE (6) 
'LARGE SQUARE' 
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4.2 THE DO. . END GROUP 

A series of executable statements may be combined into a do group, which may then 
be used anywhere a single statement is required: e.g., in the then clause. 

This allows, for example, the following coding of a four way decision. 

IF X < THEN M = 0: 
ELSE DO: 

IF X < 100 THEN DO: 

IF X > 10 THEN M = 2: 
ELSE M = 1: 
END: 

ELSE M = 3; 
END; 

This example, which sets M to the order of magnitude of X, can be diagrammed: 



IF X<0 



\ . 


THEN 


M=0 


f - 












ELSE 


IF X<100 







S . 


THEN 


IF X>10 


) ' 












ELSE 


M=3 







> 



s i 


THEN 


M=2 


) ' 


ELSE 








M=l 







Since it is only one statement, the entire sequence above could be further nested in IF or 
other compound statements. 

A do group consists of a DO statement, any number of executable statements* and an 
END statement: e.g.: 



DO; 

I = 1; 

J = 2: 
END; 



J = 2 



*Or TEMPORARY statements. 
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The example below computes PI by an inefficient but illustrative algorithm: 



FOR 1= \ 

1 to 1000 y 1 



X= RANDOM 



Y=RAND0M 



IF X**2+Y**2 
<=1 



WRITE(6)=4HIT/(HIT+MISS; 




\ 


THEN 


HIT=HIT+1 


I 












ELSE 


MISS=MISS+1 







Here it can be seen that loops are shown with the same shaped symbol as IF statements. 
HAL/S has several types of loops, all of which use the DO and END keywords. The simplest 
type is shown above, and in the following compiled listing: 
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DARTBCARD_APPROXIMATION: 


FROSRAM; 


DECLARE SCALAR, 


X. Yi 


DECLARE INTEGER, 


I, HIT, miss; 


DO FOR I = 1 TO 1003; 


x = random; 


y = random; 


z z 


IF X + Y <= 1 THEN 


HIT = HIT ♦ l; 


ELSE 


MISS = MISS ♦ l; 


end; 


kRITE(6) 4 HIT / 1000; 


CLOSE DARTBOARD_AFPROXIMATION; 



Since the compiler used in preparing listings for this manual automatically indents pro- 
grams to correspond to a structured flow, diagrams will not be provided for subsequent 
examples. The same information is contained in the indenting as in the flow. 

The simple do group (without iteration) is classified as an executable statement. No 
additional machine code is generated however. An extra do group, like an extra set of paren- 
theses, is sometimes used for clarity. In the order of magnitude example, the else clause of 
the outer IF statement is bracketed by an unnecessary DO. . .END pair. It is common 
practice to use a do group as a then or else clause even when it is not required by the syntax. 
This allows for the possibility of later insertions. 

There is no way to branch into any part of a compound statement from outside the 
statement. HAL/S has a GO TO statement, and any executable statement may be labelled, 
but restrictions are imposed. A label inside a do group, in a then clause or an else clause, can 
only be used in GO TO statements which are themselves in the same group or clause. 

The do group has two uses; primarily, it allows the nesting of statements in tests and 
loops. The secondary purpose is to define the scope of temporary data. 



The TEMPORARY statement is similar to the DECLARE statement. It allows a tem- 
porary variable of any type to be created, as shown on the following page: 
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EXAMPLE_2: 

program; 

declare vel vector , 

my_fkame matrix; 
declare vector, 

result1, resultz, e; 


do; 

temporary v_frime vector; 

* - 
V.PRIME = MY_FRAHE VEL; 


RESULT! 


= UNIT! V_PRIME ) ; 


RESULT2 

end; 
close example. 


= V_PRIME * e; 

.2; 



The vector, V_PRIME, exists only for the duration of the do group. If the next do 
group contained: 

TEMPORARY S SCALAR; 

S would probably occupy one of the storage locations that had just been used for 
V^PRIME. 

Temporary variables may be of any type and precision. They may not, however, be 
initialized or given other minor attributes. TEMPORARY statements can only be used 
within do groups. Storage is allocated to temporary variables for the duration of the 
execution of the immediately enclosing do group. The TEMPORARY statement informs the 
compiler of the range over which a variable will be needed; the actual allocation and freeing 
of storage is done in an implementation-dependent manner. 

Very few restrictions are made on the use of temporary variables. They may not be ref- 
ferenced at all from outside of the containing do group; otherwise, they are usable in all of 
the constructs introduced so far. Proper use of the TEMPORARY statement can reduce 
a program's size without substantially increasing its execution time. 
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Exercises 



4. 2 A Q: A standard means of flowcharting is to use a system where: 



THEN 



ELSE 



<po 



means a conditional execution along one of 
the paths (but not both!) depending on the 
condition represented by 'CX'. 

represents a DO. . .END group without 
any conditional branches in the group. 



Consider the following flowhcart: 



THEN 











represent DO. . .END 
groups each 5 state- 
ments long. 



represents a DO. . .END 
group 150 statements long. 




Rewrite this flowchart in a way to represent a shorter program . 
Can this change be made in a valid HAL/S program? 

4.2B Write a HAL/S program that will solve a system of 2 equations in 2 unknowns 
as in problem 2D. 

However, do not assume a solution exists; incorporate a test to insure that the 
denominator is not zero. 



4.2C Implement the following structured flowchart segment in HAL/S, using as few 
DO. . .END groups as possible. 
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s 


THEN 


Y = 


Y + 1 


/ 


ELSE 










Y = 


Y - 1 







ELSE 



IF 
Y > X + 1 



>l 


THEN 


X = X - 1 


/ 


ELSE 








X = X + 1 







4.2D Consider the following flowchart on the next page : 



means a conditional execution on CX. 



M 



means a single statement represented by M. 



a) There is a construct in the flowchart that is not legal in HAL/S. What is it? 

b) Rewrite the flowchart to eliminate the illegal construct, and write a code frag- 
ment corresponding to this structure. Do not introduce or eliminate any 
conditions. 

c) How would a structured flowchart have made this mistake more easily 
avoidable? 



The DO. . .END Group 4-15 




4.2E In problem 4. 2D, we have seen that if the branches are to be preserved as shown, 
the code corresponding to 



had to be repeated. 
Lets say that: 







is 250 statements long, whereas all the other 



are still a single statement. Rewrite the flowchart and the code to allow the code for 







to appear only once. 
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4.3 BOOLEANS 



The test between IF and THEN in the IF statement is either a comparison or a boolean 
expression. A boolean expression is a boolean variable or a combination thereof. Both types 
of tests can be compounded using AND, OR, and NOT, but they cannot be mixed in one IF 
statement. A boolean expression always can be converted to a comparison as in: 



EXAMPLE 3: 








PROS? 


,n; 








DECLARE 


<31 


boolean; 


IF 


01 = 


TRUE 


THEN 




do; 










end ; 








CLOSE 


EXAMPLE. 


.3 





The IF statement can also be written IF Ql THEN. . . 

TRUE is a boolean literal. It is equivalent to BINT or ON. Booleans can take on one 
of only two possible values: the other is written FALSE, BIN'O' or OFF. The three differ- 
ent representations for each value allow mnemonic comparisons and assignments as in: 

DECLARE BOOLEAN INITIAL(OFF), 

POWER, READY; 
IF READY = FALSE THEN POWER = OFF; 

As the example shows, the form of the declare and assignment statements is the same for 
booleans as for other data types. Booleans are annotated by the compiler with a "." on the 
E line. 

Booleans are used for flags, signal states and to optimize complex comparisons. The 
keyword BOOLEAN is interchangeable with BIT(l). Bit strings of length greater than one 
are discussed in Chapter 13. Since the concept of a "flag" is so common, the BOOLEAN 
keyword is included in the language and the applicable subset of BIT operations is pre- 
sented here. 



The preceding IF statement would normally be written: 
IF NOT READY THEN POWER = OFF; 
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fJOT READY is a boolean expression, which can also be written ~1 READY. Boolean ex- 
pressions are composed of boolean variables, the operators AND, OR, and NOT, and 
boolean functions. The operators are defined via their truth tables below: 



TRUE 
FALSE 



A AND B 

B 
TRUE FALSE 



A OR B 



B 



TRUE 



FALSE 



NOT A 

A 
TRUE FALSE 



FALSE TRUE 



TRUE FALSE TRUE TRUE TRUE 

AA 
FALSE FALSE FALSE TRUE FALSE 

OR is the inclusive or operator. Exclusive or is provided as a built-in function, 

IF XOR(A,B) THEN. . . 
but the equivalent statement, 

IF A "1= B THEN. . . 

is preferred. 

There are sixteen possible distinct binary operators on booleans. These include AND, 
OR, and NOT as well as exclusive or, the bi-conditional, etc. Any of them can be expressed 
by a combination of AND, OR and NOT. Any boolean expression can be converted to an 
equivalent boolean expression using only NOT and one of the other two. One such trans- 
formation is expressed by DeMorgan's rules: 



A AND B = NOT(NOT A OR NOT B) 



and 

A OR B = NOT(NOT A AND NOT B) 

For another example, XOR(A,B) could also be written "A AND(NOT B) OR (NOT A) AND 
B". 

The expression A&(~l B) | (~l A)&B is the same as "A exclusive-or B", or "A is not equal 
to B". Because AND has higher precedence than OR, the expression is interpreted as: 

(A&C1B)) OR (CIA)&B) 

The boolean operators, AND, OR, and NOT, have considerable similarities to the arith- 
metic operators, multiplication, addition and negation, respectively. This results in the con- 
vention that A&B i C&D is interpreted as the OR (logical sum) of two ANDs (logical pro- 
ducts). 
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Consider the following example of the translation from an English statement of a con- 
dition to a boolean expression: 

English: If the power is on and either it is not overheated or the override is set, and 
either switch 6 is on or it is off and switch 7 is set. 

HAL/S: Power & (not overheated or override) & (switch 6 or (not switch 6 and switch 
7)). 

Careful study of the English form may fail to reveal how the precedence is communicated, 
but most readers will see the correspondence between the two forms. Symbolic logic shows 
that while there are a number of reliable rules for translation, much rests on the reader's 
understanding of the situation to which an assertion applies. 

The boolean expression above is written with the minimum number of parentheses, 
taking advantage of the precedence of NOT over OR and AND. The expression, (NOT 
SWITCH6 AND SW1TCH7), has the truth table: 

SWITCH6 
ON OFF 



SWITCH7 ON 
OFF 



FALSE TRUE 
FALSE FALSE 



and is equivalent to: 

((NOT SWITCH6) AND SWITCH7). 
In summary, 



Precedence of boolean operators: 


First 


NOT 




AND 


Last 


OR 



In addition to the test in an IF statement, boolean expressions may be used in assign- 
ment statements (the left hand side must also be boolean), in comparisons with other 
boolean expressions, and in WHILE and UNTIL loops (as described in the next chapter). 
Boolean expressions may appear in WRITE statements; boolean variables may be read. 

No other data type is automatically converted to boolean, and boolean is not auto- 
matically converted to any other type. Booleans cannot be used in arithmetic expressions, 
and arithmetic variables cannot be used in boolean expressions. The concept of precision 
does not apply to booleans, but bit strings may be viewed as sets of booleans on which 
operations can be performed in parallel. 
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Both types of test in the IF statement can be written using the AND, OR, and NOT 
operators. These operators combine either comparisons or booleans via precedence rules 
like those of arithmetic. Parentheses can be used to override the normal precedence. When 
comparisons are combined, it is good practice to parenthesize: 

IF(I < 0) OR (I > 9) THEN. . . 

In boolean expressions, the precedence rules make most parentheses unnecessary; an ex- 
ception is as in: 

IF A OR (NOT B) THEN. . . 

It is not possible to combine comparisons and booleans in a single expression. If a statement 
(or group) is to be executed based on both a boolean and a comparison, the test should be 
written: 

IF (CHECKING = TRUE) AND (I < 0) THEN I = -I; 

or as: 

IF CHECKING THEN IF I < THEN I = -I; 



Exercises 

4.3A For each of the following, tell whether it is a boolean expression, a relational ex- 
pression, or illegal. For the boolean expressions, tell whether the value is TRUE 
or FALSE; for the relational expression, tell whether or not the condition is satis- 
fied. Assume that: 

A, B are INTEGER 

V, S are 3-vectors 

UPFLG, TRFLG are booleans 

A = 12 B = 6 

V = (2 4 6) S = (3 4 7) 

UPFLG = TRUE TRFLG = FALSE 

a) UPFLG = TRFLG 

b) NOT UPFLG 

c) NOT(V = S) 

d) NOT TRFLG OR A > B 

e) (A < B) = TRUE 

f) UPFLG = TRUE 

g) TRFLG &CI UPFLG) 
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4.4 DO CASE AND GO TO 



The most basic flow control constructs are loops, the IF statement, and the DO group. 
These may be combined and compounded to implement complex structures of decisions. 
The remaining flow control statements fill in a few gaps. They are not as heavily used as 
the various forms of IF and DO. 

The IF statement allows a two-way decision based on a comparison or boolean. An 
n-way branch based on an integer can be written with the DO CASE statement, for 
example: 



M 
M 


EXAMPLE «: 

frcgpah; 




M 


DECLARE 


SCALAR, 


M 




A, B, C, D; 


H 


DECLARE 


NUM GOOD INTEGER; 


M 


DECLARE 


SCALAR, 


M 




VALUE, old_value; 


C 






M 


DO CASE 


NUM_GOOD ; 


M 


ELSE 




M 


DO 


; 


M 




VALUE = OLD VALUE; 


M 




RETURN; 


M 


END; 


M 


VALUE 


= a; 


M 


VALUE 


= (A + B) / z; 


M 


VALUE 


- midvalia, b, c>; 


M 


do; 




C 






M 


end; 




M 


end; 




11 


0LD_VALU 


e = value; 


» 


CLOSE EXAMPLES ; 



This code sets VALUE to some combination of the variables A, B, and C. It could 
be part of an algorithm for combining redundant values from a set of sensors. The code is 
diagrammed: 
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CASE 

NUM GOOD 



> 



0LD_VALUE= 
VALUE 



\ 


ELSE 


VALUE=0LD 

VALUE 


f 












RETURN J 




1 


VALUE=A 










2 


VALUE= 

(A+B)/2 










3 


VALUE= 

midval(a,b,c) 




4 












1 



Any integer or scalar expression may appear after the word CASE. The expression is eval- 
uated and rounded to the nearest integer if necessary. In this example, if the expression, 
NUM_GOOD, is less than one or greater than four, the else clause is executed. Otherwise, 
one of the four statements between the end of the else clause and the end of the DO CASE 
statement is executed. The fourth statement (fourth case) is a DO group. This is another 
instance of the use of DO. . .END to combine several statements where one is required. 

Only one of the cases is executed. After the selected case is done, control passes to the 
statement after the END statement which matches DO CASE (in this example, to the assign- 
ment of OLD_VALUE). 



Each case may be any executable statement. This includes assignment, IF. . .THEN 
. . .ELSE, I/O, a DO group, a loop, or a further DO CASE statement. The only way to pass 
control to one of these nested statements is by executing the DO CASE header with an 
appropriate value of the expression. 
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The compiler counts the cases and prints a case number to the extreme right of each 
in the listing. If an else clause is supplied, code is generated to compare the value of the 
case expression against the bounds, and the number of cases. If the expression is out of 
range, the else clause executes and control then continues after the END of the DO CASE. 
The else clause may be omitted entirely, in which case no checking is performed. Omission 
of the else clause may be risky, as under some circumstances, control can be passed com- 
pletely out of the HAL/S program if the expression selects a missing case and no else clause 
is supplied. 

In the example above, a RETURN statement appears in the else clause. When RETURN 
is used in a program, it is equivalent to transferring control to the close statement: it exits 
the program. 

In chapter five, the EXIT and REPEAT statements are described. They are drawn in the 
same way: 



( RETURN*) ( EXIT ) Q_ 



REPEAT 



Each is an unconditional transfer of control to a point defined by the structure of the pro- 
gram rather than to a user label. This completes the set of symbols used in a structured flow 
diagram. 

The flow control statements include those described in this chapter, loops, and (in a 
sense) the statements for defining and invoking procedures and functions. Some of the 
real-time statements of Chapter 12 may be thought of as transferring control, though there 
are conceptual differences. 

The only other flow control statement in HAL/S is GO TO. The experience of a number 
of large HAL/S programming projects has shown that the GO TO statement is not neces- 
sary. It is provided chiefly for mechanical translations from other languages. 

Once a degree of familiarity with the use of compound statements for flow control is 
achieved, it can be seen that the concept of a "conditional transfer" or branch instruction 
is merely a free form notation for flow diagrams: a line with an arrowhead. The restrictions 
on the use of GOTO correspond to the rules for a structured flow diagram presented in 
Section 9.1 . GOTO's are not allowed at all in a proper structured flow, but HAL/S permits 
some exceptions: 

1) between unnested statements in the same program or other block, 

2) between statements nested at the same level in the same compound statement, 

3) to a less deeply nested statement in the same block, provided that the target state- 
ment is not contained in any compound statement which does not also contain the 
GO TO statement. 
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Exercises 

4.4A Rewrite the following code segment using the DO CASE statement: 

IF I = THEN SCRAMBLE = 4; 

ELSE IF I = 1 THEN SCRAMBLE = 0; 
ELSE IF I = 2 THEN SCRAMBLE = 5; 
ELSE IF I = 4 THEN SCRAMBLE = 1; 
ELSE IF I = 5 THEN SCRAMBLE = 2; 
ELSE SCRAMBLE = 3; 
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5.0 LOOPS 

A loop is a construct which causes a set of statements to be executed repetitively. In 
HAL/S, a loop is a compound statement: The statements to be iterated are nested within 
the loop. Four types of loop are provided, so that the need for explicit backward branches 
(GO TO's) is virtually eliminated. 

A loop is created in HAL/S by attaching one or more iteration control phrases to the 
simple DO. . .END construct which was described in the previous chapter. These iteration 
control phrases govern the number of times the loop is executed and may provide a counter 
or "loop control variable" which can be referenced from within the loop. 

The example below uses the most common type of loop, the iterative DO FOR, to 
compute the factorial of a number. The number, N_MAX, is read from channel 5 and 
(NMAX)! is written to channel six. 



M 


FACTORIAL: 


M 


program; 


M 


DECLARE INTEGER, 


M 


RESULT, N MAX, I; 


M 


READ! 5) N MAX; 


M 


RESULT = l; 


M 


DO FOR I = 2 TO N MAX BY l; 


M 


RESULT = I RESULT; 


M 


ehd; 


M 


WRITE! 6) RESULT; 


M 


CLOSE FACTORIAL; 



Note that the body of the loop is executed repetitively until the control variable exceeds the 
final value specified after the keyword 'TO". The example shown computes factorial 
(NMAX) by doing N_MAX-1 multiplies by the control variable, which takes on the 
values 2, 3, 4, . . ., NMAX on successive iterations. 

In addition to the iterative DO FOR, other forms of iteration control are: The discrete 
DO FOR, the WHILE phrase and the UNTIL phrase. 

These constructs probably are familiar to the reader who has used other algebraic pro- 
gramming languages, therefore, the remainder of the discussion in this chapter is primarily 
concerned with the limitations and restrictions of HAL/S loops, and the ways in which 
these constructs may be combined with each other and with other features of the language. 

5.1 THE ITERATIVE DO FOR STATEMENT 

In the preceding example, the loop body is a single statement: 

RESULT = I RESULT; 



In general, the loop body may contain any number of executable statements. Since the loop 
is constructed from a simple do group, the TEMPORARY statement may also occur in 
the loop body. 
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In the phrase, 

FOR I = 2 TO NMAX BY 1; 

I is termed the loop control variable, 2 is the initial value, NMAX is the final value, and 1 
is the increment. 

HAL/S places very few restrictions on these four parameters. In particular, the loop 
control variable may be any single or double precision integer or scalar variable.* For 
example, given the declaration: 

DECLARE A INTEGER, 

B INTEGER DOUBLE, 

C SCALAR, 

D SCALAR DOUBLE; 

all four of the following combinations are permissible. 

DO FOR A = B TO C BY D; 
DO FOR B = D TO C BY -1; 
DO FOR C = D TO B/A; 
DO FOR D = A-B TO A+B BY D; 

The initial and final values and the increment used in an iterative DO FOR loop may be 
any arithmetic expression. That is, each may be any expression which evaluates to a positive 
or negative, single or double precision, integer or scalar value. Each expression is evaluated 
only once, at entry to the loop. This, if variables used in the expressions are modified 
within the loop, the iteration parameters of the loop are not affected. 

DO FOR TEMPORARY I = 2 TO N_MAX BY 1; 

A TEMPORARY loop control variable created in this way may be used within the body of 
the loop in any way that a declared variable could be used, but outside of the loop the TEM- 
PORARY variable does not exist. Since the TEMPORARY control variable is effectively 
unDECLARED at the end of the loop, the memory locations occupied by the variable may 
be re-used, thus reducing the storage requirement of the program containing the DO FOR 
TEMPORARY. Under some versions of the compiler a speed advantage may also result. 
TEMPORARY control variables created in a loop are always single precision integers ; their 
names must not duplicate declared data or other TEMPORARY variables in the same loop. 

The initial and final values and the increment used in an iterative DO FOR loop may be 
any arithmetic expression. That is, each may be any expression which evaluates to a positive 
or negative, single or double precision, integer or scalar value. Each expression is evaluated 
only once, at entry to the loop. Thus, if variables used in the expressions are modified 
within the loop, the iteration parameters of the loop are not affected. 



*Single precision integers are generally the most efficient. 
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Note that in HAL/S the loop control variable may be a scalar; e.g.: 

DECLARE SCALAR, X, PI CONSTANT (3.14159); 
DO FOR X = -PI TO PI BY .001; 

WRITE(6) X, SIN(X), COS(X), TAN(X); 
END; 

This code will produce a set of trigonometric tables, giving sine, cosine, and tangent 
values for 2000 7r different angles. 

The operation of the loop is the same as for integers: On each iteration, the increment is 
added to the loop control variable, and if the final value is not exceeded, the loop body is 
executed. The values taken on by X are: -it, -tt+.OOI, -tt+,002, . . . , etc. The last value 
will not exactly equal it, because it is generated by a sequence of additions of .00 1 . 

In the event that the result produced by adding the increment to the current value of the 
loop variable is not of the same type or precision as the loop variable, the usual rules for 
mixed mode assignment statements govern the conversion. For instance, if the loop variable 
is an integer and the increment is less than one, rounding will occur on each pass through 
the loop. In this case, if the increment is positive but less than .5, the value of the loop con- 
trol variable would never be changed and the loop would never terminate.. 

As previously stated, any or all of initial value, final value, and increment may be nega- 
tive. For instance, the loop below is functionally equivalent to the one in the original form 
of FACTORIAL: 

DO FOR I = NJvIAX TO 2 BY -1; 

RESULT = I RESULT; 
END; 

When a negative increment is specified, the termination condition becomes "is the loop 
variable algebraically less than the final value?" 

The only way that the body of a HAL/S loop may be entered is by execution of the DO 
statement which heads the loop; however, control may leave the loop by a variety of means 
other than the control variable exceeding the final value (e.g., RETURN, EXIT, and GO TO 
statements, error conditions, etc.). Since the increment has been added to the loop variable 
before the test against the final value is made, at normal exit from an Iterative DO FOR 
loop the loop variable will be greater than the specified final value (if the increment is posi- 
tive) or less than the final value (if the increment is negative). This fact may be used to 
determine whether or not the loop was exited prematurely. Use of this feature is illustrated 
in the sample below, which sets the variable NEG_PART to the number of the first negative 
component in a vector, or to zero if there is no negative component: 

DECLARE V VECTOR(5); 
DECLARE NEG_PART INTEGER; 
DO FOR NEG^PART = 1 TO 5; 

IF V$NEG_PART < THEN EXIT; 
END; 
IFNEG PART > 5 THEN NEG^PART = 0; 
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The EXIT statement is not fully described until later in this chapter, but in this case the 
meaning is intuitive: If component number NEGPART of V is less than zero, control exits 
from the loop (to the second IF test). Thus, NEG PART will be greater than the 5 if only 
if the entire vector was examined without finding a negative value. 

Since it is necessary to test NEG_PART outside of the loop, a temporary loop control 
variable would not be appropriate in this example. 

To find the second negative component in a vector, the following loop could be added 
after the one above: 

DO FOR NEG PART = NEG_PART TO 5: 

IF VSNEG PART < THEN EXIT; 
END; 

Since the initial and final values and the increment specified in an iterative DO FOR 
loop are evaluated only once (prior to the first iteration), there is no conflict in using 
NEGPART both as a loop control value and as the initial value. This new loop will con- 
tinue where the first stopped. 

The "BY 1" clause has been omitted above; since 1 is the most commonly used incre- 
ment, it is the default and need not be specified. 

In summary, the iterative DO FOR takes four parameters; the first,' the control vari- 
able, may be any previously declared arithmetic identifier or may be a TEMPORARY 
integer created within the DO FOR statement. The initial value, final value and incre- 
ment may be any arithmetic expression; the increment may be allowed to default to one 
by omitting the BY clause. These expressions are evaluated prior to the first pass through 
the loop, and the results determine whether the loop is executed once, many times or not 
at all. The loop terminates when the value of the control variable passes the final value 
specified in the TO clause. Later in this chapter, we will see how the addition of a WHILE 
or UNTIL clause can modify the execution of a loop, but first we will examine another 
form of the DO FOR construct. 

Exercises 

5 . 1 A Consider the following code fragment where : 

I & N are integers; 
S is scalar. 

N = 10; 

S = .l; 

DO FOR I = 1 TO 2 BY S; 

N = N+ 1; 
END; 

What is the value of N on exit from the loop? 

5. IB Consider the example where NEG_PART was set to the number of the first com- 
ponent of a vector less than zero, or zero if no elements were negative. 
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Change the code given in the example to leave the number of the last negative com- 
ponent instead of the first. 

5.1C Consider the following code fragment where: 
N & I are integers. 



N = 9; 

DO FOR I = 1 TON BY 2; 

N = N+ 1; 
END; 



What is the value of N on exit from the loop? 

SID Consider the following code fragment where: 

A is a 5x5 matrix, 
X and Y are integers. 



X= 1; 
ROWS: Y= 1; 
LOOP: A$(X,Y) = .2; 

IF Y = 5 THEN GOTO OUT: 

Y = Y+ 1; 

GOTO LOOP; 
OUT: 'i!pFX = 5 THEN GOTO DONE ; 

X = X + 1; 

GOTO ROWS; 
DONE: 



a) What does this do? 

b) Rewrite this using HAL/S iterative do for loops. 
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5.2 THE DISCRETE DO FOR STATEMENT 

In order to understand the utility of another type of DO FOR statement, consider the 
problem of recognizing prime numbers. The code below sets a boolean variable, PRIME, to 
TRUE if NUM is prime and to FALSE otherwise (for simplicity, NUM is assumed to lie 
between one and one-hundred). 

DECLARE PRIME BOOLEAN INITIAL(ON); 

DECLARE INTEGER, NUM, I; 

READ(5) NUM; 

DO FOR I = 2, 3, 5, 7; 

IF REMAINDER(NUM,I) = THEN PRIME = FALSE; 

END; 

This code produces the correct answer over the range 10 to 100, but is inefficient. A 
better algorithm is to test the divisibility of NUM only by numbers which are themselves 
prime. This can be conveniently expressed using the discrete DO FOR: 

DO FOR I = 2, 3, 5, 7; 

IF REMAINDER(NUM,I) = THEN PRIME = FALSE; 
END; 

In this case, the loop is executed only four times, with the loop control variable, I, equal 
to two on the first pass, three on the second, five on the third and seven on the final itera- 
tion. The reader may note that both programs contain a logical error in that the wrong 
result is obtained when NUM is equal to 2, 3, 5, or 7: this error will be fixed when the 
WHILE phrase is introduced in the next section of this chapter. 

The form of the discrete DO FOR is similar to the iterative version: the discrete form 
specifies a list of values (expressions) to be assigned to the loop control variable rather than 
an algorithm (initial value, final value, and increment) for computing successive values. 

On each pass through the loop, the control variable is set to the v?'ue of one of the 
expressions to the right of the equal sign. The expressions are used from left to right on 
successive iterations of the loop; each one must evaluate to an integer or scalar value. If 
the type or precision of any expression is different from that of the control variable, the 
usual rules for mixed mode assignments are applied. 

Unlike the expressions in the iterative DO FOR, the expressions in the discrete DO 
FOR are not evaluated until the iteration of the loop on which they are to be assigned into 
the control variable. This means that the value of the control variable on future passes 
through the loop can be changed by storing into variables referenced in the expressions from 
the body of the loop ; e.g. : 

DO FOR I = 1, I, 21, 31, . . .; 

At exit from a discrete DO FOR loop, the control variable retains the value of the last 
expression, unless the variable was TEMPORARY, in which case it is undefined. 
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The remaining iteration control phrases, WHILE and UNTIL, provide for looping with- 
out the use of a control variable. The next two sections of this chapter describe how to 
create a loop with these phrases, and show how they may be used to modify the effect of a 
DO FOR. 

5.3 THE WHILE CLAUSE 

The WHILE clause may be appended to a simple DO . . . END group to create a loop, or 
it may be appended to either form of the DO FOR to introduce an additional condition for 
continuation of a loop. The general form of the WHILE clause is: 

WHILE boolean expression 
or 

WHILE relational expression. 

The boolean or relational expression represents a condition for continuation of the loop; as 
long as it evaluates to the TRUE state, the loop continues. For example: 

DO WHILE TRUE; 
END; 

is an infinite loop, whereas: 

DO WHILE X < 2 
END; 

continues until X>2. 

The expression in the WHILE clause is evaluated prior to each execution of the first 
statement of the loop body. If on any pass the expression evaluates to FALSE, the loop 
body is skipped and execution continues at the statement after the END of the DO WHILE 
or DO FOR . . . WHILE loop. The DO WHILE loop is particularly useful when the number 
of iterations that should be made through a loop is not known in advance. Consider, for 
example, Newton's method for computing the square root of a number, X. The method 
generates closer and closer approximations until the current approximation is "good 
enough". "Good enough" is defined as the point where the gain in accuracy from the last 
iteration was negligible (less than EPSILON). The example below illustrates the point. 

M 
H 

n 

M 
M 
M 
M 
M 
M 
M 
M 
M 

n 
n 



NEWT0N_S0RT: 










program; 










DECLARE X SCALAR; 








DELCARE EPSILON 


CONST ANT (.001); 






DECLARE SCALAR, 


OLD. 


APPROX, NEW. 


_approx 




READI5) X; 










NEW APPROX = X 


/ 2! 








old'apfrox = o; 










DO WHILE ABS(NEU_APPROX - OLD_APPROX) 


> epsilon; 


OLD_APPROX = 


NEW. 


approx; 






NEW_APPROX = 


(OLD.APPROX t X 


/ OLD. 


approx ) / z; 


end; 










KRITEI6) 'SORT 


OF ■ 


X, ' IS ', 


new_approx; 


CLOSE NEMTON_SqRT; 
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Note that this program can be made to produce more accurate results (at the expense of 
greater execution time) merely by decreasing the constant EPSILON. Note also that if 
X is equal to zero, the WHILE test will fail on the first evaluation and the correct answer 
will be produced but no division by zero will occur. 

When the WHILE clause is added to a DO FOR, a new loop is not created, but an 
additional condition for continuation of the existing loop is imposed. This combination 
can be used to correct the deficiency in the PRIME program of Section 5.2 as shown 
below: 

DECLARE PRIME BOOLEAN INITIAL (TRUE), I INTEGER, NUM INTEGER 

READ(5) NUM; 

DO FOR I = 2, 3, 5, 7 WHILE I < = SQRT (NUM); 

IF REMAINDER (NUM,I) = THEN PRIME = FALSE- 
END; 

To see how the WHILE clause corrects the bug in the old version suppose NUM equals 
3. Under the old version, REMAINDER (3,3) would be computed on the second pass 
through the loop, the result would be zero, and PRIME would be set to FALSE. Now, how- 
ever, prior to each execution of the loop body, the test "is I <= SQRT (NUM)?" is made. 
On the first execution of the DO FOR statement, I is set to two. Then I is compared with 
SQRT (NUM), which here is SQRT (3) or 1. 732. Since it is not the case that 2 <= 1.732, the 
loop body is not executed and PRIME remains TRUE. Adding the WHILE clause in' this 
example also has the effect of determining the primeness of most numbers in fewer itera- 
tions. For example, when X = 17 the loop is iterated only twice since 2 is less than or equal 
to SQRT (17) and 3 is less than or equal to SQRT (17), but the next number in the DO 
FOR, 5, is greater than SQRT (17). 

EXERCISES 

5.3A Change the code in the last example in Section 5.1 that finds the number of the first 
component < 0, eliminating the need for the line: 

IF V$NEG_PART < THEN EXIT 
by using a WHILE clause. 



5.4 THE UNTIL CLAUSE 

The general form of the UNTIL clause is: 

UNTIL boolean expression 
or 

UNTIL relational expression. 
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It may be used in the same contexts as the WHILE clause: with the simple DO END 
& 0U l ™™ lth either form of the DO F OR statement. Unlike the WHILE clause, however 
the UNTIL clause specifies a condition under which iteration of the loop is to terminate 
When it evalutes to TRUE, the loop terminates. For example, 

DO UNTIL 3 = 4; 
END; 

is an infinite loop, whereas 

DO WHILE 3 = 4; 

END; 

is effectively a NO-OP (never executes). UNTIL is not, however, simply an inverse of 
WHILE for the following reason: An UNTIL clause never terminates a loop before the first 
pass through the loop body. This property of the UNTIL clause may be used to avoid the 
need to initialize variables used in the termination condition of a loop. Suppose for instance 
that a program is to read vectors from channel 5. When a zero vector is read, the sum of the 
previous vectors is printed and another set is read. The program is to run indefinitely. 

This could be expressed via two WHILE loops: 

DECLARE VECTOR, TOTAL, V; 
DO WHILE TRUE; 

TOTAL = 0; 

V = VECTOR (1, 1, 1): 

DO WHILE V "I = VECTOR (0, 0)- 
READ(5) V; 
TOTAL = TOTAL + V; 

END; 

WRITE(6) TOTAL; 
END; 

In this example, the assignment: 

V = VECTOR (1, 1, I); 

is used to force V to be non-zero before the inner loop executes. If this statement were not 
provided, the inner loop would not execute after the first iteration of the outer. 

The essential difficulty is that the inner loop written with WHILE will test the value of 
V before it has been read. 
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If the UNTIL form is used for the inner loop, the initialization of V is not needed : 

DO WHILE TRUE; 
TOTAL = 0; 

DO UNTIL V = VECTOR (0, 0, 0); 
READ(5) V; 
TOTAL = TOTAL + V; 
END; 

WRITE(6) TOTAL; 
END; 

Since the UNTIL clause cannot terminate the loop before the first iteration, the initial 
value of V is unimportant. 

When, as in this case, the UNTIL clause is used with a simple DO . . . END group, it is 
useful to conceive of the termination test as being done at the end of the loop (after the last 
statement of the loop body). 

Like the WHILE clause, UNTIL may also be used as an additional condition on either 
type of DO FOR statement, as in: 

DO FOR I = 1 TO 10 UNTIL A$I = 0; 

END; 

This example is a loop (with no loop body) which sets I to the index of the first zero 
component in a vector, A. However, since the UNTIL cannot terminate the loop on its first 
iteration, if AS 1=0, the loop will continue to look for an additional zero. 

When used with a DO FOR statement, the UNTIL clause causes a test for termination 
on the second and all subsequent iterations of the loop; on the second through last iteration, 
the test is performed after the (DO FOR) loop control variable has been updated, but 
before the first statement of the loop body is executed. 

Exercises 

5.4A Consider the problem of exercise 5.3A. A proposed solution is shown below. 

DECLARE V VECTOR(5); 

DECLARE NEG_PART INTEGER; 

DO FOR NEG PART = 1 TO 5 UNTIL VSNEG_PART < 0; 

END; 

IF NEG_PART > 5 THEN NEG_PART = 0; 

Why is this not an acceptable solution? 
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5.5 EXIT AND REPEAT 

The constructs already introduced in this chapter provide for the repeated execution of 
a loop body, and for a condition to be specified under which control is to exit from a loop. 
These language features, however, only govern the execution of an entire loop body; the 
statements to be introduced in this section allow ^portion of a loop to be repeated and for 
a termination test to be made at any point in the loop body rather than only at the begin- 
ning or end. To see how these statements, EXIT and REPEAT, augment the other loop 
control statements, consider the following program. 

/* THIS PROGRAM READS A SERIES OF ANGLES EXPRESSED IN DEGREES, 
CONVERTS THEM TO RADIANS, AND KEEPS A RUNNING TOTAL. ON EACH CYCLE 
IT PRINTS THE CURRENT TOTAL (IN RADIANS) AND THE TANGENT OF THE 
TOTAL ANGLE PRODUCED. IT AUTOMATICALLY STOPS WHEN THE RUNNING 
TOTAL EXCEEDS 5 tt, OR IF THE COMPUTATION OF THE TANGENT COMES TOO 
CLOSE TO A SINGULARITY.*/ 



TAN_SUMS: 

program; 

replace cards by "5"; 
replace list by "6"; 
declare scalar, 

X, 

TOTAL INITIAL(O), 

PI CONSTANT! 3. I<tl59:6), 

rad_per_degsee constant! pi / 180) 
shift constant! pi / 2); 
do until total > 5 pi ; 
read! cards) x; 

total = total + x rad_per_degree; 
if nodi total - shift, pi) < .001 then 

exit; 
write! list! total, tanitotal); 

END 
CLOSE TAN_SUMSi 



/*CAP.D READER IS DEVICE 5*/ 
/"PRINTER IS DEVICE 6*/ 



In this example, the statement: 

"IF MOD(TOTAL-SHIFT,PI) < .001 THEN EXIT;" 

causes the loop to terminate if TOTAL gets within .001 of tt/2, 3tt/2, etc. If the EXIT 
statement is executed, control passes to the statement after the END of the loop (i.e. to 
the CLOSE statement). 

The program might be more useful, however, if instead of terminating at a singularity, 
it allowed the user to enter another value and continued. This can be accomplished by 
changing the EXIT statement to REPEAT as follows: 



IF MOD(TOTAL-SHIFT,PI) < .001 THEN REPEAT; 
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If the REPEAT statement is executed, control will return to the top of the loop, where 
TOTAL will be compared with 5 PI. If this test fails (TOTAL is not greater than 5 PI), the 
loop body will be re-executed. 

This example shows how EXIT may be used to insert a completion test at any point in 
the loop body, and how REPEAT may be us*d to cause iteration of a portion of the loop 
body. 

The general form of the EXIT statement is: 

EXIT; 
or 

EXIT label; 

When used without a label, EXIT causes an unconditional transfer of control out of the 
nearest enclosing DO . . . END group (i.e. to the statement following the END of the imme- 
diately enclosing loop or simple DO . . . END group). If a label is supplied, it must match 
the label on some DO . . . END group in which the EXIT statement is nested; this form 
causes transfer of control out of the corresponding loop or simple DO . . . END group. 
Similarly, the general form of the REPEAT statement is: 

REPEAT; 
or 

REPEAT label; 

Unlike the EXIT statement, however, REPEAT applies only to loops. When used without a 
label it causes repetition of the nearest enclosing DO WHILE, DO UNTIL, or DO FOR loop. 
Repetition, in this sense, means that the loop control variable (if any) is updated, the ter- 
mination condition (if any) is re-evaluated, and if the conditions for termination are not met 
then control is passed to the first statement of the loop body. Thus, the presence of a 
REPEAT statement in a loop does not change the number of iterations of the loop, but 
does determine which portion of the loop body is executed on each iteration. 

EXIT and REPEAT are controlled forms of GO TO. The location to which control is 
transferred is defined by the structure of the program. Thus, whenever these statements are 
used, their functions are what their names imply. EXIT always "gets out of a compound 
statement. REPEAT always repeats a loop. GO TO, on the other hand, has a variety of 
functional uses. When GO TO is used, the reader must find the corresponding label to gain 
any idea of the effect of the GO TO. 

The following code fragment uses arrows to illustrate the transfer of control caused bv 
EXIT and REPEAT. 
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S/l?-FLE_FLOW: 
FPCSPAM; 

DECLARE INTEGER. 

I. J, K, 

.-►do until false: 
if i m then 
do; 

J = 0; 
<««« repeat; 



e;;d ; 



ELSE 








*t00F2: 

DO FCP K = I TO 
L00P3: DO FOR L = M 
IF J = 


10; 
ti, 

rn,EM 

LOO 


D z ; 


Ni 


ELSE 
T **** exit; 


ehd; 

FW1: , 



CLOSE SAMPLE_FLOW! 



Since REPEAT applies only to loops, its effect is not changed by placing it in a simple 
DO . . . END group. This fact can be used to make the TAN SUM program more informa- 
tive as shown below: 

IF MOD(TOTAL-SHIFT,PI) < .001 THEN DO; 

WRITE(LIST) TANGENT UNDEFINED'; 

REPEAT; /* READ ANOTHER ANGLE */ 
END; 



Exercises 



5.5A Given: 

a) DO FOR X = 1 TO 100; 

EXIT; 



END; 
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and, 



b) DO FOR X = 1 TO 100; 



REPEAT; 



END; 

Assume that the EXIT and REPEAT are executed in some conditional branch some- 
time during the execution of the loop. These are the only EXIT's and REPEAT'S in 
the loops and there are no branches out of the loops. 

What can be said about the value of the control variable 'X' in a) and b) above when 
the first statement after the END is executed? 

End Of Chapter Problems 

5A Write a HAL/S program to use Simpson's rule to approximate the area under the 
curve y = y/x using smaller and smaller segments, delta. The process continues until 
the area resulting from (delta/2) size segments differs from the result obtained using 
delta by less than EPSILON. 

Read the limits of integration from channel 5 in scalar form, and write the resulting 
area out on channel 6. 

Remember, Simpson's Rule is: 

FINAL 



/ 



delta 
f(x)dx= — — [f(initial)+2f{INITIAL+DELTA)+ . . . 

INITIAL +2f(FINAL-DELTA)+f(FINAL)] 



Include any assumptions you make. 
5B Consider the following code: 

PROBLEM _PROG: PROGRAM; 

DECLARE INTEGER, 
NUMBER INITIAL(3), 
DIVIDER; 

TEST_INIT: DIVIDER = 2; 
TEST: IF MOD (NUMBER, DIVIDER) = THEN GO TO LOSE: 

DIVIDER = DIVIDER + 1; 

IF DIVIDER = NUMBER THEN GO TO WIN; 

GO TO TEST; 
LOSE: NUMBER = NUMBER + 1; 

IF NUMBER = 500 THEN GO TO DONE: 

GO TO TESTJNIT; 
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WIN: WRITE(6) NUMBER; 

NUMBER = NUMBER + 1; 

IF NUMBER < 500 THEN GO TO TEST_INIT 
DONE:CLOSE PROBLEM_PROG; 

MOD(a,b) yields a(mod b), the remainder when the greatest integral multiple of b 
less than a is subtracted from a. 

a) What does this program do? 

b) Rewrite it using do for . . . end loops so that the program is easier to read. 
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6.0 ARRAYS 



An ARRAY is an ordered set of variables of identical type which are accessed by a single 
name. Arrays are completely distinct from vectors and matrices. The primary uses of 
ARRAYs in HA L/S are: 

1 ) For performing identical operations on similar data as in: 

DECLARE IMU_ STATUS ARRAY(4) INTEGER; 
DO FOR 1 = 1 TO 4; 

IF IMUSTATUSSI NOT = THEN CALL RING_BELLS; 
END; 

2) For maintaining a history of previous data values as in: 
DECLARE ALT HISTORY ARRAY(IOO) SCALAR DOUBLE; 



CYCLE = CYCLE+1; 
ALTHISTORYSCYCLE = NEW ALTITUDE; 

and 

3) For maintaining tables of all sorts, as in: 

DECLARE DAYS_PER_MONTH ARRAY(12) 

INTEGER INITIAL(3 1,28, 3 1,30,3 1,30,3 1,3 1,30,3 1,30,31): 

HAL/S allows arrays of any data type; however, the most frequently used are single 
dimensioned arrays of INTEGERS and SCALARs like those in the examples above. There- 
fore, the basic concepts of declaring and subscripting arrays will be thoroughly examined 
in this context before arrays of other data types and more advanced array operations are 
discussed. 

6.1 ARRAYS OF INTEGERS AND SCALARS 

Arrays are created using the ARRAY keyword in the DECLARE statement; a parenthe- 
sized compile-time expression or list of expressions must follow the ARRAY keyword to 
denote the size of the array. Arrayness is an attribute of a variable of some data type rather- 
than a new type. Hence, given the statements: 

DECLARE A ARRAY(3) SCALAR; 
DECLARE V VECTOR(3); 

the data type of A is SCALAR and the type of V is VECTOR even though both consist of 
three single precision SCALAR elements. 

Following the word ARRAY is a parenthesized list of dimensions. Each dimension is 
described by a compile-time expression, which is the size of the dimension and the index 
of the last element. X, Y, and Z in the next figure could be REPLACEd with any integral 
value up to an implementation-dependent limit: 
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ARRAY (X) 
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ARRAY (Y,X) 
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Arrays are initialized in the same manner as VECTORS and MATRIXs; a list of values is 
provided in parenthesis following the keyword INITIAL or CONSTANT. The special charac- 
ters * and # may be used for partial initialization and repetition as before. Thus, 

DECLARE A ARRAY(5) INTEGER INITIAL(3,5, 14,2,0); 
creates: 

A = (3,5,14,2,0) 
and, 

DECLARE B ARRAY(12) SCALAR INITIAL(0,1 ,-l,SQRT(2), 

-SQRT(2),4#2,*); 

creates: 

B = (0,1-1,^2,^/2,2,2,2,2,?,?,?) 
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Since it is often desirable to initialize an entire array to the same value, HAL/S also allows an 
initial (or constant) list to consist of only one value; in this case every element of the array 
is set to the value provided. Thus the forms: 

DECLARE X ARRAY(5) INTEGER INITIAL(5#0); 

and: 

DECLARE X ARRAY(5) INTEGER INITIAL(O); 

are equivalent. Finally, the ARRAY attribute may also be "factored" or specified only 
once in a DECLARE statement which creates multiple arrays as shown below: 

DECLARE ARRAY(3), 

GYROINPUT INTEGER, 
ATTRATE SCALAR DOUBLE, 
SCALE CONSTANT(.013,.026,.013); 

The arrays declared above might serve as the inputs and outputs of a simple program 
which does linear scaling of data read from an accelerometer assembly. Assume that 
GYRO INPUT contains three values which represent the rates of vehicle rotation along the 
pitch, roll, and yaw axes. A simple routine to convert the data to more convenient units and 
data representation might be: 

DECLARE N INTEGER; 

DECLARE BIAS SCALAR INITIAL(57.296); 

DO FOR N = 1 TO 3; 

ATT_RATE$N = SCALESN GYRO_INPUT$N + BIAS; 
END; 

In this example, the various arrays are subscripted in the same fashion as VECTORs, and, 
in general, the same rules apply: The subscript of a one-dimensional array may be any 
arithmetic expression which evaluates to a number between one and the size of the array. 
If the expression does not produce an integral result, it is rounded to the nearest integer. 
An array element, such as ATTRATES1* or SCALE$(N+2), may be used in any context 
in which a simple variable of the same data type can be used. For instance, given two 
SCALAR ARRAY( 10)'s, A and B, the following statements are all legal: 

A$1,AS2 = SIN(A$3); 

A$(B$(A$3)) = 29; 

DO UNTIL AS1 = A$2; 

IF ASN < A$(N+1) THEN . . . 



*Some readers may wish to review the discussion of single and multi-line formats in Chapter 2. 
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Another example of the use of arrays appears in example 1. This program determines 
the minimum, maximum, and average time required to invert a 5x5 MATRIX containing 
random data: 



n 


EXAMPLE_1: 


n 


PROGRAM; 


M 


DECLARE M MATRIX! 5. 5)1 


M 


DECLARE N MATRIXI5, 5); 


M 


DECLARE TIME ARRAYI100) SCALAR INITIAL(O); 


M 


DECLARE SCALAR, 


M 


TMIN, TMAX, TMEAH; 


M 


DECLARE INTEGER, 


n 


I. Ji k; 


M 


DO FOR I = 1 TO 100 ; 


M 


DO FOR J = 1 TO 5; 


M 


DO FOR K = 1 TO 5; 


M 


M = random; 


S 


J,K 


M 


ENO; 


M 


END; 


n 


TIME = RUNTIME; 


s 


I 


E 


* *-l 


M 


n = m ; 


M 


TIME = RUNTIME - TIME ! 


s 


I I 


M 


end; 


C 


NOW FROCESS THE HUNDRED-SAMPLES IN THE ARRAY [TIMEl 


M 


TMAX, TMEAN, TMIN = TIME ; 


S 


I 


M 


DO FOR I = 2 TO 100; 


M 


TMEAN = TMEAN * TIME ; 


S 


I 


11 


IF TIME > TMAX THEN 


s 


I 


M 


TMAX = TIME ; 


S 


I 


M 


IF TIME < TMIN THEN 


S 


I 


M 


TMIN = TIME ! 


S 


I 


M 


END; 


M 


TMEAN = TMEAN / 100; 


M 


CLOSE EXAMPLE l; 





In this example, two previously undefined functions, RANDOM and RUNTIME are invoked: 
RANDOM is used to set the matrix to a set of pseudo-random numbers, and RUNTIME 
returns the value of the system's real time clock. 
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It may be noted that the min, max, and mean could have been computed within the 
main loop without saving all of the values in an array. Saving the data allows additional 
statistics, such as the median to be computed (see exercises). This method of obtaining 
timing data may be inaccurate if the time required to read the clock is significant. 

HAL/S provides for multi-dimensional arrays: These are typically used for ease of 
subscripting and to contribute to the readability of a program by logical grouping of data. 
For example, suppose that instead of one accelerometer assembly as described earlier, 
there were four of them, for reasons of fault-tolerance. Then, we might declare the input 
data as a two-dimensional array: 

DECLARE GYRO_INPUT ARRAY(4,3) INTEGER; 

Now, GYRO_INPUTS$(3,2) is the second measurement from the third unit, 
GYRO_JNPUT$(l,l) is the first measurement from the first unit, and GYRO_ INPUT $(1,*) 
is all the data from unit one, i.e. the same three measurements we had before. The use of 
an asterisk to indicate "all of a particular dimension" is the same as in VECTOR/MATRIX 
subscripting; the #, TO, and AT forms also apply. Thus, GYRO INPUT$(*,1) is an array 
containing the first measurement from each of the four accelerometer units, and 
GYRO_INPUT$(2 AT #-1,*) is a 2x3 array containing three measurements from each of 
the last two units. In the next section we will see how these complex subscripts are used, 
but first we shall examine the general form of multi-dimensional arrays (and finish process- 
ing the redundant accelerometer data along the way). 

The maximum number of dimensions in an array depends on the particular HAL/S 
compiler in use. All present HAL/S compilers allow from one to three dimensions. In 
declaring an array, the number of dimensions is denoted by the number of expressions 
in parenthesis following the keyword ARRAY. Thus, 

DECLARE A ARRAY(5,9,4) SCALAR, 
B ARRAY(180) SCALAR; 

creates two arrays of 180 scalars, but A is 3-dimensional while B is linear. The first element 
of B is B$l, whereas the first element of A is A$(l,l,l). Initialization works the same as in 
single dimensional arrays: either a list of values containing one value per array element may 
be provided, or a single value may be assigned to all elements. Thus, the array A may be 
initialized as: 

DECLAREAARRAY(5,9,4) INITIAL(O); 



DECLARE A ARRAY(5,9,4) INITIAL(180#0); 

If we want A to be all zero except that A$(*,*,3) = -1, the following initial list can be 
used: 

INITIAL( 5#(9#(0 ,0, - 1 ,0))) 
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To understand why this is correct, it is necessary to know that HAL/S stores arrays in 
"Row-major order". This means that the values in the initial list are assigned in the follow- 
ing order: 



A$(l,l,l) = 
A$(l,l,2) = 
A$(l,l,3) = 
A$(l,l,4) = 
A$(i,2,l) = 
A$( 1,2,2) = 

et cetera 



value 1 
value 2 
value 3 
value 4 
value 5 
value 6 



The way to remember this fact is by noting that the right-most index is incremented the 
most rapidly. 

Now, to illustrate the usefulness of multi-dimensional arrays, we will return to the 
examples of four accelerometer assemblies. The entire set of twelve measurements could 
be processed as shown below: 



M 


EXAMPLE_2: 


M 


program; 


M 


DECLARE GYRO_INPUT ARRAY!*, 3) INTEGER; 


PI 


DECLARE ATT_RATE ARRAYCt, 3) SCALAR; 


M 


DECLARE SCALE ARRAY(3) CONSTANT! .013, .026, .013); 


H 


DECLARE BIAS SCALAR INITIAK57. 296 ) ; 


(1 


DO FOR TEMPORARY I = 1 TO 4; 


M 


DO FOR TEMPORARY J = 1 TO 3; 


M 


ATT_RATE = GYRO_INPUT SCALE + BIAS; 


S 


I.J I.J J 


M 


end; 


M 


END; 


M 


CLOSE EXAMPLE 2; 



In this code, SCALE is still declared as a array of three: Since the four instruments are 
identical, there is no need to keep four sets of scale factors. Note, however, that if 
GYRO_INPUT had been declared as a linear ARRAY(12), we would have to either make 
the SCALE array also of size twelve, or introduce more complex code to associate the 
right scale factor with each of the twelve measurements. Thus, a two dimensional array 
may be a mechanism for performing identical operations on a set of similar linear arrays 
just as a linear array may be used to perform identical operations on a set of similar integers 
or scalars. 



6.1.1 Additional Examples 



1) 



Do a matrix multiply, Ml = M2 M3, with Ml, M2 and M3 declared as ARRAYs 
rather than as matrices: 
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ft 


EXAMPLE 3: 


M 


froc-ram; 


M 


DECLARE AFPAYI3, 3), 


ft 


Ml, MS, M3; 


ft 


DECLARE INTEGER, 


ft 


ROM, COL; 


ft 


DO FOR RON = 1 TO 3: 


ft 


DO FOR COL = 1 TO 3; 


ft 


Ml s ftZ M3 ♦ M2 M3 t ftZ M3 ; 


S 


ROM, COL ROW.l l.COL ROW, J 2, COL ROM, 3 3, COL 


M 


Et.TJ; 


M 


END; 


M 


CLOSE EXAMPLE 3; 







2) Rotate the contents of an array of five scalars as shown by the illustration: 



in 



EXAMPLE *: 






program; 






DECLARE A ARRAY! 5) 


SCALAR 


double; 


DECLARE TEMP SCALAR 


DOUBLE 




TEMP = A ; 






1 






DO FOR TEMPORARY T 


= 1 TO 


<»; 


A = A ; 






T T*l 






end; 






A = TEMP; 






5 






CLOSE EXAMPLE.*; 
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3) Find the square root of the mean of the squares of all the values in an array of 
100 scalars: 



EXAMPLE 5: 




PROGRAM; 




DECLARE A ARRAYU00); 




DECLARE RMS SCALAR; 




DECLARE TOTAL SCALAR DOUBLE 


INITIAL! 0); 


DO FOR TEMPORARY N = 1 TO 100; 


2 
TOTAL = TOTAL * A ; 




N 




end; 




RMS = S!!RT1 TOTAL / 100); 




CLOSE EXAKPLE_5; 





Exercises 



6. 1A Which of the following declarations lists are legal? 
If they are legal, what do they create? 
If not legal, why not? 

a) DECLARE X INTEGER INITIAL(3); 

DECLARE LIST__ONE ARRAY(X) SCALAR INITIAL(3#.l); 

b) DECLARE X CONSTANTS); 
DECLARE ARRAY(X), 

LIST_ONE SCALAR INITIAL(4#.2), 
LIST_TWO INTEGER; 

c) DECLARE LIST_THREE ARRAY(18) SCALAR INITIAL(10#.l,*); 

d) DECLARE LIST_FOUR ARRAY(9,3) SCALAR INITIAL(3#.l); 

3#(3#.2),*); 

e) DECLARE LIST_FIVE INTEGER ARRAY(6); 
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6. IB a) In example 1 in the text, the minimum, maximum, and mean times required to 
invert a 5x5 matrix are computed. Modify the code of the example to include a 
computation of the standard deviation, defined as follows: 



'ZjCXj-X)- 



where X is the mean value of the time, and n is the number of samples. 

b) An alternate definition for standard deviation, easily shown to be equivalent 
to the above, is: 



/w 



do- 



using this formulation, it is possible to compute the standard deviation without 
saving all the time values in an array. Rewrite the program of part a), eliminating the 
array of time values. Is it possible to compute the median value without saving all 
the values? 

6.1C In example_2, GYRO_INPUT and ATT_RATE are declared ARRAY(4,3)- 

The text states that if these variables were declared ARRAY(12) either SCALE 
would have to be declared ARRAY(12) or more complex code would be needed. 

Keeping SCALE declared an ARRAY(3), modify the code given for example_2 
such that GYROJNPUT and ATT_RATE are declared ARRAY(12), while still 
keeping the basic structure of the code given. 

6. ID Instead of the modification of the array shown in EXAMPLE 4, write code that 
will perform the following modification of array A. 
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6.2 OPERATIONS ON ENTIRE ARRAYS 

Most of the examples in this chapter have relied upon the iterative DO FOR loop to 
sequence through the elements of an array. Commonly, the loop has been used to apply 
one statement to each array element, i.e. 

DO FOR I = 1 TO ARRAY SIZE BY 1; 

(statement) 
END; 

Since this type of operation is so common, HAL/S provides a mechanism for combining 
these three statements into one. For example, to add one to each element of an array 
could be coded as follows: 

DECLARE A ARRAY(IO) INTEGER: 
DECLARE I INTEGER; 
DO FOR I = 1 TO 10; 

ASI = A$I + 1; 
END; 

or, by eliminating the subscript and the loop, could be recoded as shown below:* 

DECLARE A ARRAY(IO) INTEGER; 
A = A+l; 

This assignment is an example of an arrayed statement: A statement which operates on all 
the elements of an array. Here the effect is the same as in the form with a loop; i.e. each 
element of A is incremented. In general, an arrayed assignment statement results whenever 
the target (left-hand side) of the assignment is an array. There are two possibilities for the 
expression to the right of the = sign. It may be either a simple expression (e.g. "1" or 
"SQRT(3)") or it may be an arrayed expression (e.g. "[A] + 1" or "[A]/2"). In the former 
case, every element of the target array is set to the value of the expression. In the latter case, 
one additional rule applies: the arrayness (number and size of dimensions) of an arrayed 
expression must be exactly the same as the arrayness of the variable to which it is assigned. 
This must be true because each element of the target array is set to the corresponding 
element of the arrayed expression. An arrayed expression follows the same rules as an 
unarrayed expression except that some or all of the variables are arrays (of identical 
dimensions). Thus, if 

A = CX 2 + DX+5; 

is a legal HAL/S statement involving simple variables A, C, D, and X of any data type, 
then: 

[A] = [C] [X] 2 + D[X] + 5; 



"The HAL/S compiler annotates arrays with square brackets in the output listing. Thus, the assignment 
statement would appear as [A] = [A] + 1 ; 



Operations on Entire Arrays 6-11 

where A, C and X are identical arrays of the same data types, is also legal. In general, all of 
the arithmetic operators (e.g. +, **, /, etc.) will accept either two simple variables, a simple 
variable and an array, or two arrays of identical dimensions. 

Note, however, that the machine code generated to correspond to an arrayed statement 
still contains a loop; this fact is important when assessing the efficiency of a computation. 

The following shows how the partition form of array subscripting is used. Given: 

DECLARE GRID ARRAY(6,6) SCALAR; 

a variety of re-arrangements of the array can be done in a very few statements: 

1 ) Set the top half to the bottom half: 
GRID j jq 3 * = GRID4 -j-q g * : 

2) Set the upper left quarter to the lower right corner: 
GRIDj TO 3, 1 TO 3 = GRID 3 AT 4, 3 AT 4 ' 

3) Set the first row to the sum of the other five: 
GRID j * = GRID 2 * + GRID3 * + GRID4 * + 

GRID 5 * + GRIDg * ; 

4) Set the border to zero: 

GRID, * , GRID* 6 , GRID 6 * , GRID* ;1 = 0; 

This last example is a multiple assignment statement, to which one additional rule 
applies: If one or more of the target variables in a multiple assignment statement is an 
array, then all of the target variables must be arrays and of identical dimensions. 

One caution is in order regarding assignments like these. Consider the assignment, 

GRID$(l,2TO#) = GRIDS(1,1 TO#-l); 

This statement might be intended to shift the top row one position to the right. Instead, it 
sets GRIDS(1,2 TO #) to GRID$(1,1); the first element is propagated throughout the row. 
The reason can be seen when the arrayed assignment is unravelled: 

GRID$(1,2) = GRID$(1,1); 
GRID$(1,3) = GRID$(1,2); 



This adverse effect can occur whenever a partition of an array is set from an intersecting 
partition of itself. Such assignments should always be checked by partially expanding them 
by hand. 
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Using the feature introduced in this section, we can make the redundant accelerometer 
example of Section 6. 1 more compact: 



EXAMPLE 6: 




program! 




DECLARE ARRAY - !*, 3), 




GYRO_INFUT INTEGER, 




ATT_RATE SCALAR; 




DECLARE SCALE ARRAY13) SCALAR CONSTANT! . 013, 


.026, .013); 


DECLARE BIAS SCALAR CONSTANT! 57. 296 ) ; 




DO FOR TEMPORARY DEVICE : 1 TO 4i 




[ATT_RATEJ = [GYRO_INPUT] 


(SCALE ] ♦ bias; 


DEVICE,* ~ DEVICE, * 




end; 




CLOSE EXAMPLE_6; 









Here, we have converted an unarrayed statement in double loops to an arrayed state- 
ment in a single loop. Since the SCALE array is of size 3 and the other arrays are 4x3, we 
cannot eliminate both loops without getting an arrayness mismatch in the assignment 
statement. But it is possible to have an assignment statement with more than one dimension 
of arrayness as long as all of the variables match. Thus, we could compute a set of four 
attitude arrays: 

DECLARE ATTITUDE ARRAY(4,3) SCALAR; 
DECLARE ATT_RATE ARRAY(4,3) SCALAR; 

from the attitude rates in a single statement merely by: 

[ATTITUDE] = [ATTITUDE] + [ATT_RATE] DELTA_T; 

where DELTAT is a SCALAR representing the time between samples. This one state- 
ment is functionally the same as: 



ATTITUDES(1,1) = ATTITUDE S( 1,1) + ATT_RATES(1,1) DELTA_T 

ATTITUDES(1,2) = ATTITUDES(1,2) + ATT_RATES(1,2) DELTA_T 

ATTITUDE$(1,3) = ATTITUDES(1,3) + ATT_RATES(1,3) DELTA_T 

ATTITUDE$(2,1) = ATTITUDES(2,1) + ATT JIATE$(2,1) DELTA T 



ATTITUDE$(4,3) = ATTITUDES(4,3) + ATT_RATES(4,3) DELTA_T; 

(a total of twelve simple assignments). 

In addition to arrayed assignments, HAL/S also allows arrayed comparisons. It is 
possible to compare an entire array or arrayed expression, either with a simple variable 
or with an identically dimensioned array or arrayed expression. For example, we could 
create a 4 by 4 array showing mismatches between the four sets of ATTITUDE data (each 
an ARRAY(3) partition) as shown: 
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EXAMPLE_7: 

fpogram; 

declare attitude arrayo, 
declare mismatch array!*, 
declare integer, 
I, j; 
DO FOR I = 1 TO 4; 
MISMATCH = 0; 
I, I 


3) scalar; 
<*) integer; 


DO FOR J = I t 1 TO *; 
IF [ATTITUDE] -= 
I,* 


(ATTITUDE) THEN 


MISMATCH 


MISMATCH = l; 


J, I 




1, J 


ELSE 

MISMATCH 

J, I 


MISMATCH = o; 
I, J 


EM>; 
end; 
close example_7; 







In this example, the statement: 

"IF ATTITUDES (I,*) 1 = ATTITUDE$(J,*) THEN . . ." 

is an arrayed comparison: Each element of ATTITUDES(I,*) is compared with the corre- 
sponding element of ATTITUDE$(J,*). If any of the pairs of elements is unequal, then the 
comparison succeeds and MISMATCH(I,J) is set to 1. Thus, this statement is functionally 
equivalent to: 

IF (ATTITUDES(I,1) ~\ = ATTITUDE$(J,1)) OR 
(ATTITUDE$(I,2) ~| = ATTITUDE$(J,2)) OR 
(ATTITUDE$(I,3) "I = ATTiTUDE$(J,3)) THEN . . . 

Two arrays are considered unequal if they differ in any element; they are equal if they do. 
not differ in any element (i.e. they are equal if all elements are the same). 

It is also possible to compare an array with an arrayed expression; for instance the 
statement: 

"IF ATTITUDE$(1,*) = (ATTITUDE$(2,*) + ATTITUDE$(3,*)) /2 THEN . . ." 

would determine whether or not the first set of readings was equal to the average of the 
second two. Finally, an array may be compared with a simple variable or expression, e.g. 

IF [MISMATCH] ~~l = THEN . . . 



IF ATTITUDE$(2T0 4,1) = ATTITUDE$(1,1) THEN ... 
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Regardless of the data types involved, the only comparisons which may be made between 
arrayed operands are equal (=) and unequal (~1=). This restriction is made for the same 
reason as in VECTOR/MATRIX comparisons: The question, "Is A = (1, 57, 3) greater than 
B = (2, 4, 3)?" has no clear answer. 



Exercises 



6.2A Which of the following are legal arrayed statements (expressions): 
Where: 



A 
B 
C 
X 
Y 


ARRAY(5) 

ARRAY(5) 

ARRAY(IO) 

INTEGER 

SCALAR 


D 

E 


ARRAY(5,5) 
ARRAY(10,10) 


a) 


A = B; 






b) 


A = C; 






c) 


A = X; 






d) 


DS(*,5) = B; 






e) 


D$(5,*) = Y; 









E$(5,*) = B; 






g) 


E$(5 AT 2, 3 TO 7) = D; 


h) 


A, B = X; 






i) 


A, Y = X; 






J) 


C$(5 AT 3) = A 


+ B; 




k) 


C$(5 AT 4) = A 


+ X; 




1) 


C$(B) = X; 






m) 


DO WHILE A > 


X; 




n) 


DO UNTIL A = 


B; 




o) 


DO UNTIL A 1 


= C; 




P) 


DO WHILE D$(2 AT 2 


,2 AT 3) = ES( 


q) 


DO WHILE DSC 


\3) = 


A; 


r) 


DO WHILE AS(1,1) = 


X; 


s) 


DO UNTIL A = 


C$(5 AT 4); 


t) 


DO UNTIL B = 


E$(7,6TO#); 



ES(2T0 3,3T0 4); 



6.2B What are the major benefits of the ability to do operations on entire arrays in one 
line of code? 
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6.3 ARRAYS OF OTHER DATA TYPES 

So far in this book, five data types have been introduced. INTEGER, SCALAR, VEC- 
TOR, MATRIX, and BOOLEAN. An array of any of these types can be created in a manner 
completely analogous to the INTEGER/SCALAR arrays already described. For instance, 
one array of each type can be created in a single DECLARE statement: 

DECLARE ARRAY(IO), 
I INTEGER, 
S SCALAR, 
V VECTOR, 
M MATRIX, 
B BOOLEAN; 

Each of these arrays consists of ten array elements; each element behaves in the same way 
as a simple variable of the same data type. In the case of an array of VECTORS (e.g. V 
above), each array element in turn consists of several components (in this case, three 
scalars). Hence, if V were to be completely initialized, 10 x 3 = 30 values would be re- 
quired. As in INTEGER/SCALAR arrays, the INITIAL list may contain either a value for 
every array element or a "single" value (i.e. initialization for one VECTOR or for one 
MATRIX). For example: 

DECLARE A ARRAY(2) VECTOR INITIAL* 1,0,0, 1.0,0); 



creates: 



A ee 



1 




1 





, 













_ - 




_ - 



as does: 

DECLARE A ARRAY(2) VECTOR INITIAL* 1,0,0); 
and, 

DECLARE M ARRAY(3) MATRIX(2,2) INITIAL(1,2,3,4,5,6,7,8,9,10,11,12), 
creates: 



M = 



1 2] p 6 "I [9 101 
3 4 J'L7 8 J ' [ll 12j 



The same initial list could also be used to initialize a three by two array of 2-VECTORS: 
DECLARE X ARRAY(3,2) VECTOR(2) INITIAL(1, 2,3,4,5,6,7, 8,9,10,11, 12); 
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But in this case, the layout of the data is significantly different: 



X = 






[ 
pi] 



This is not merely a distinction of graphical representation. The concepts of data type 
and arrayness are completely independent. Thus given: 

DECLARE M MATRIX(2,2) INITIAL(a,b,c,d); 
DECLARE N MATRIX(2,2) INITIAL (e,f,g,h); 
DECLARE A ARRAY(2) VECTOR(2) INITIAL(e,f,g,h); 

the assignment statements, 



N = M N; 



and 



[A] = M [A]; 

perform very different operations. "N = M N;" is a simple matrix multiplication as described 
in Chapter 2, but "A = M A;" is an arrayed statement; it does two (the arrayness) multiplica- 
tions of a vector by a matrix. The results would be: 



[A] 



(C 



ae + bg 


af + bh 


ce + dg 


cf + dh 


ae + bf] 


Tag + bh" 


ce + df ' 


eg + dh 



3) 



As indicated above, arrayed statements may be formulated from arrays of VECTORs 
and/or MATRIXes according to the usual rules: All of the VECTOR/MATRIX operations 
may be applied to two simple variables (or expressions), to an array and a simple variable, 
or to two arrays of identical dimensions. To see how arrayed operations on these data 
typesjnight be used, consider the following situation: An aircraft has a position VECTOR, 
MYPOSN, and access to an array of five other vectors, [POSITIONS] , which gives the 
locations of five other aircraft. The code below, which executes every DELTA_T seconds, 
computes the velocity of each aircraft, the distance between each aircraft and MYPOSN, 
and the rate of approach of each toward MYPOSN: 
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EXAMPLE 8: 
FROSRAM; 

DECLARE POSITIONS ARRAY! 5) VECTOR; 
DECLARE OLD_POSN ARRAYI5) VECTOR; 
DECLARE A7RAYI5), 

VELOCITY VECTOR, 

DISTANCE SCALAR, 

APFRCACHJ?ATE SCALAR; /*THE ANSWERS*/ 

DECLARE MY_FOSN VECTCR; 
DECLARE 0ELTA_T SCALAR; 

OBTAIN POSITIONS FROM OUTSIDE 

[VELOCITY] = ([POSITIONS] - |OLD_POSN]) / DELTA.T; 

[DISTANCE! = ABVALl [POSITIONS] - MY_POSN); 

[AFPROACH_RATE] = [VELOCITY] . UNIT! ! POSITIONS ] - MY_POSN); 

[OLD_POSN] = [POSITIONS]; 
CLOSE EXAMPLE 8; 



Each of these assignment statements has an arrayness of five. The second one, for 
instance, first subtracts MY POSN from each of the five VECTORS in POSITIONS, pro- 
ducing an array of five "distance" VECTORS. Then the ABVAL function operates on 
each VECTOR in turn producing a scalar distance which is stored into the corresponding 
element of DISTANCE. 

So far we have been deliberately avoiding any subscripts of arrays of VECTORS and 
MATRIXes: This is because a long list of subscripts can be rather confusing. For instance, 
a three dimensional array of MATRIXes could have up to five subscripts; Given: 

"DECLARE M ARRAY(2,3,4) MATRIX(5,5);" 

one might expect the first MATRIX to be referenced as "M$( 1,1,1,*,*)" which is fairly 
complicated, though more comprehensible than "M$(J+1,2 AT J-l,*,3 AT #-4,2)." To 
aid in dealing with these difficulties, HAL/S makes a distinction between array subscripts 
and component subscripts. The first three subscripts of M are array subscripts and the last 
two are component subscripts. To make subscript expressions more readable, HAL/S en- 
forces the following rule: Whenever both array and component subscripts are applied to a 
variable, they are separated by a colon instead of a comma. Thus, the first MATRIX in the 
array M is actually "M$(l,l,l :*,*)". Using this syntax, we can re-write the second assign- 
ment statement from the example above the hard way; that is: 

[Distance] = ABVAL([POSITIONS]-MY_POSN); 

is equivalent to : 
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DISTANCE] = SQRT((POSITIONS$(l:l)-MY_POSN 1 )**2 
+ (POSITIONSS(l:2)-MY_POSN 9 )**2 
+ (POSITIONS$(l:3)-MY_POSN 3 )**2) 

DISTANCE 2 = SQRT((POSmONS$(2:l)-MY_POSNj)**2 
+ POSITIONS$(2:2)-MY POSN 2 )**2 
+ POSITIONS$(2:3)-MY_POSN 3 )**2); 



DISTANCE 5 = SQRT((POSITIONS$(5:l)-MY_POSN 1 )**2 
+ POSITIONS$(5:2)-MY POSN 2 )**2 
+ POSITIONS$(5:3)-MY_POSN 3 )**2); 

Aside from the use of the colon, all of the possibilities for subscripting still apply: all 
of the TO, AT, and * partitions may be used on either side of the colon, any arithmetic 
expression may be used as a subscript, and a subscripted variable may be used in any con- 
text in which a simple variable of the same data type could be used. 

The data type of a subscripted array is not necessarily the same as the data type of the 
entire array. For instance, given: 

DECLARE A ARRAY(3,2) MATRIX;, 

A is a two-dimensional array of type MATRIX,* 

A$(l, *:*,*) is a one-dimensional array of type MATRIX,* 

A$(l,*:l,*) is a one-dimensional array of type VECTOR,* 

and 

A$( 1 , 1 : 1 , 1 ) is a single SCALAR. 

It is more common to reference an entire array element or sub-array than it is to refer- 
ence a component of an array element or some sub-array of partitions, etc. Therefore, 
HAL/S provides a more compact form for referencing an entire element of an array to 
which component subscripting could also apply: When an entire array element is selected, 
the asterisks (component subscripts) to the right of the colon may be omitted. Hence, 
the first MATRIX in the array A above can be referenced as "A$(l,l:)". The convenience 
of this form of subscript is illustrated by the program below which processes an array of 
"N" 3-VECTORs and saves the three having the greatest magnitudes in a second array: 



*Each occurrence of A in the listing will automatically be annotated with an overpunch reflecting the effect 
of subscripting on A. 
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EXAMFLE_9: 




FR03---M! 




CECLARE V APPAYr999) VECTOR! 31; 




DECLARE BISTHFEE APEAYI31 VECTOR! 3) IHITIAL(O); 




DECLARE H INTEGER; 


/*HUf6ER OF ACTUAL ENTRIES IN V» 


CO FC1 TE[-FGPA=r I = 1 TO N ; 




INNER: 




DO FCR TEI'.PCPARY J = 1 TO 3 ; 




IF ABVALCV ) > ABVAUBIGTHP.EE ) THEN 




i: j: 




co; 




DO FOR TEMPORARY K = J t 1 TO 3; 




BIGTHREE = BIGTHREE ; 




K: K-l: 




END ; 




BIGTHREE = V ; 




j: I: 




EXIT inner; 


/* TRY NEW I */ 


end; 




END INNER! 




end ; 




CLOSE EXAMPLE_9; 





6.3.1 Arrays of BOOLEANs 

BOOLEAN arrays are not substantially different from arrays of other data types. The 
only attribute of BOOLEAN arrays that does not directly follow from the previous discus- 
sion is: Whenever a BOOLEAN array is subscripted, the subscript must end with a colon. 
The reason for this restriction is that BOOLEAN is actually a special case of BIT strings.** 
Like VECTORS and MATRIXes, bit strings may possess component subscripts. Thus, even 
though a BOOLEAN has only one component (a single bit), the colon must be supplied 
to indicate that the subscript is an array subscript rather than a component subscript. 

Aside from this restriction, BOOLEAN arrays are used in the same way as arrays of 
other types; declaration and initialization take the same forms: 

DECLARE ARRAY(12) BOOLEAN, 

A, 

B INITIAL(OFF), 

C INITIAL(OFF,ON,9#ON,OFF); 

and arrayed assignments and comparisons also function as before: 

[A]$(1T0 6:) = [B]$(lTO60 & (A$(l:) OR [B] S(7TO=12)); 
IF[A] = TRUE THEN ... 

One typical use of BOOLEAN arrays is for maintaining status tables. For instance, if 
we had a set of redundant altimeters producing an array of altitude values: 



**Bit strings are fully described in Chapter 1 3. The word BOOLEAN is exactly equivalent to "BIT(l)" 
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DECLARE ALT ARRAY(4) SCALAR; 
and a "parallel" array containing the time at which each value was read: 

DECLARE TIMETAG ARRAY(4) SCALAR; 
then it might be useful to define a boolean array of the same size: 

DECLARE DATA_VALID ARRAY(4) BOOLEAN; 

each element of which indicates the validity of the corresponding altitude value. One pos- 
sible form of this reasonableness check is shown below: 



example_a: 
frcc-pam: 

declare array!*), 

alt scalap, 
timetag scalar, 
data_valid boolean! 
declare scalar initial! 0). 

total, n'jm3er_g00d; 
declare avefage scal4r; 
do for temporary j = 1 to <*% 

if runtime - timetas > .1 or alt <= or alt > 50000 then 

J J J 



DATA_VALID = FALSE; 
J: 



ELSE 
DO; 

DATA_VALID = TRUE; 
J: 

NUMBER GOOD = NUMBER GOOD ♦ l! 
TOTAL = TOTAL ♦ ALT ; 
J 

end; 
end; 

average = total / number_gcod; 
do for temporary i = i to <i\ 

if data valid then 

I: 

IF ABSIALT - AVERAGE) > .1 AVERAGE THEN 
I 



DATA_VALID = FALSE; 
I: 



NOW UE HAVE SCREENE0 OUT DATA WHICH IS NEGATIVE OR ZERO, 
OR TOO LARGE OR TOO OLD OR TOO FAR FROM THE AVERAGE 
CLOSE EXAMPLE A; 
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Exercises 

6.3A Write out graphically the results of the following initializations: 

i) DECLARE X ARRAY(3) MATRIX(3,3) INITIAL(9#.l,*) 
ii) DECLARE Y ARRAY(3,3) VECTOR(3) INITIAL(9#.l,*) 
iii) DECLARE Z ARRAY(9) VECTOR(3) INITIAL(9#.l,*) 
iv) DECLARE A ARRAY(27) SCALAR INIT1AL(9#.1,*) 

6.3B In the previous problem, the initializations lists were transformed into their graphi- 
cal interpretations. Using this data, assign the twenty-first element of the lineariza- 
tion of X, Y, Z, and A to a scalar variable, S. 

6.3C Given a variable M, declared MATRIX(3,9): 

Assign the 16th through 22nd elements of the linearization of X, Y, Z, and A to 
the 2nd through 8th elements in the linearization of M. 

6.3.1 A The Sieve of Eratosthenes is an ancient Greek method for computing prime num- 
bers, but it still works today and is quite suitable for a computer. The algorithm 
works as follows: 

Start with a list of integers from 2 to the largest number of interest. Cross out all 
multiples of 2, then all multiples of 3, and so on. The remaining numbers are then 
all prime. 

Write a HAL/S program to print out all primes less than 100, using the Sieve of 
Eratosthenes. (Hint: Use an ARRAY of BOOLEAN type to indicate if a number 
is prime or not.) 
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6.4 FUNCTIONS OF ARRAYS 

In Section 6.2 we saw that the statement: 

"[A] = [B] 1 / 2 ;" 

where A and B are identically dimensioned arrays, results in each element of A being set to 
the square root of the corresponding element of B. As the reader might expect, the same 
result may be obtained by the statement: 

"[A] = SQRT([B]);". 

Whenever any of the built-in functions introduced so far is applied to an array, the result 
is an identically dimensioned array where each element is the result of applying the function 
to the corresponding element of the arrayed operand. Similarly, the rules for functions of 
two arguments, such as MOD or DIV, are the same as for infix operators (e.g. +, -, **, etc.); 
both arguments may be unarrayed, or one may be arrayed and the other unarrayed, or both 
may be arrayed (and of identical dimensions). This usage, the arrayed invocation of a func- 
tion, has been amply illustrated in the previous section; HAL/S also provides a set of func- 
tions that will only accept arrayed arguments. 

One of the examples in Section 6.1 gathered some statistics on the execution time of 
the matrix inverse operation. A SCALAR ARRAY(IOO), TIME, was filled with 100 samples 
of the execution time of an assignment statement. Then the variables TMIN, T_MAX, 
and T_MEAN were set to the minimum, maximum and mean values from the array by 
means of a loop. More compact code for the same function is shown below: 

T_MIN = M1N([TIME]); 
T_MAX = MAXUTIME]); 
T^MEAN = SUM([TIME])/100; 

Here, the built-in functions, MIN, MAX, and SUM, reduce an array to a single unarrayed 
value. Each of these functions (and a fourth, PROD) requires an arrayed operand. The 
array may be either INTEGER or SCALAR (of either precision), and the result is an unar- 
rayed value of the same data type and precision. 

The SUM function simply adds all of the array elements together: 

"SUM([A])" 

is equivalent to: 

"A$l + AS2 + . . . + A$n" . 

The PROD function multiplies all of the elements together in a similar manner: (A$l) 
(A$2) (A$3) . . . (ASn). MIN and MAX both search through the array, and return the 
value of the array element which is algebraically smallest (MIN) or largest (MAX). All 
of these functions will accept a multi-dimensional array, but the result returned is always 
unarrayed. Thus, given: 
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[A] = (5,17,-3,21), 
MIN([A]) = -3, 
MAX([A]) = 21, 
SUM([A]) = 40, and 
PROD([A]) = -5355. 

The results will be exactly the same whether A is declared as: 

DECLARE A ARRAY(2,2) INITIAL(5,17,-3,21); 

or as a linear ARRAY(4). 

6.4.1 Shaping Functions 

Throughout this chapter we have stressed the fact that a linear array is not the same 
type as a VECTOR, and that a two dimensional array is not the same type as a MATRIX. 
Sometimes, however, it is useful to be able to convert one type to the other. For instance, 
we might want to use arrayed statements to compute the x, y, and z components of a 
vehicle's position from some complex sensor, and then to treat the results as a 3-VECTOR 
for further computations. We already know from Chapter 2 that given: 

"DECLARE A ARRAY(3) SCALAR, 
V VECTOR;" 

the conversion can be made by: 

"V = VECTOR(A$l,A$2,AS3);" 

In fact, the form, "V = VECTOR([A]);" is completely equivalent. Both the VECTOR 
and MATRIX conversion functions will accept any mixture of arrays and simple variables 
as operands, provided the total number of elements is correct. When an array is specified 
as an operand to one of these functions, it is "unraveled", i.e. it is effectively replaced with 
a list of its elements. In the same way, an array of vectors can be unraveled for assignment 
to a larger vector: 

DECLARE AV ARRAY(2) VECTOR(3); 
DECLARE VEC6 VECTOR(6); 
VEC6 = VECTOR 6 ([AV]); 

The statement above is functionally equivalent to : 

V 3 AT 1 = ^Z 1 : ; 
V 3AT4 = AV 2: > 
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The MATRIX function works in much the same way; a 3 by 3 MATRIX, M, can be assigned 
as: 

M = MATRIX([AV] ,[A]); 

yielding: 

AV$(1:1), AVS(1:2), AVS(1:3) 
M = AV$(2:1), AVS(2:2), AVS(2:3) 

AS1, A$2 , AS3 

To perform the reverse conversion, the INTEGER and SCALAR functions are used. 
These functions have already been introduced as explicit type conversions; when they are 
used with multiple simple arguments or any type of data aggregate (arrays, VECTORS, 
etc.) they return an arrayed result. Thus, using the previous declaration, we can set an array 
to a VECTOR as: 

[A] = SCALAR(V); 

The SCALAR (or INTEGER) function will accept any number of arguments of any arith- 
metic type so long as the total number of SCALAR or INTEGER values agrees with the 
subscript of the function. 

These functions have a number of uses: They may be used to convert the type of data as 
shown above, to initialize an array, as in: 

[SMALL_PRIMES] = INTEGER(1,2,3,5,7); 

or, to re-arrange the elements of an array (hence the term "shaping functions"): 

DECLARE A12 ARRAY(12) INTEGER; 
DECLARE A4X3 ARRAY(4,3) INTEGER; 
DECLARE A3X4 ARRAY(3,4) INTEGER; 

[A12] = INTEGER, 2 ([A4X3]); 
[A4X3] = INTEGER 43 ([A12]); 
[A3X4] = INTEGER 34 ([A4X3]); 

When, as in the last two statements above, the INTEGER or SCALAR functions possess 
multiple subscripts, the result is a multi-dimensional array; each subscript denotes the size 
of one dimension of the array. 

Each subscript of the INTEGER or SCALAR function must be computable at compile- 
time (i.e. each must be an arithmetic expression involving only literals and CONSTANTS). 
In addition to the subscript, the precision specifiers, ©SINGLE and ©DOUBLE may be used 
to change the precision of the operand. Just as in the VECTOR and MATRIX functions, 
the precision specifier is used as a subscript and must precede the array dimensions. Thus, an 
ARRAY(12) SCALAR, S, can be converted to a 2x6 INTEGER DOUBLE array, I by: 



[I] = INTEGERgDouBLE^lS]); 
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Exercises 

6.4.1 A Use vector shaping functions to provide a clearer solution to exercise 6.3C. 

(Note: This problem requires that the reader see Section 6.5.1 of the Language 
Specification.) 

6.4.1 B Given the following declarations: 

DECLARE X ARRAY(2,3) SCALAR INIT1AL(2#(1.1,2.2,3.3)); 
DECLARE V VECTOR INITIAL(.l): 

State the types and depict graphically the values of the following expressions: 

a) INTEGER(X) 

b) INTEGER(X,X) 

c) SCALAR(V) 

d) INTEGER$(2,6)(2#X) 

e) MATRIX(3#V) 
VECTOR$6(X) 
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End of Chapter Problems 

6A The median value of the elements of an array of odd dimension may be computed 
by sorting the elements in increasing order. The middle element of a sorted array is, 
in fact, the median value. Write a program to find the median value of an array of 
25 integers. A simple, though not very efficient, sort algorithm may be described 
as follows: 

Find the smallest element of the array. If it is not the first element, exchange it with 
the first. Then find the smallest of the remaining elements. If it is not the second 
element, exchange it with the second. Continue until the entire array is sorted. 

An advantage of this algorithm for the median-value problem is that it is not neces- 
sary to sort the entire array; finding the 13th smallest element is sufficient. 

6B We have made many timings of 3 processes A, B, and C. The results of our timings 
are in an array TIM_VALUES declared, 

TIM_VALUES ARRAY(3,25) INTEGER 

We now wish to process this information, finding the sum for all 25 timings of each 
process A, B, and C, and the sums of the times for each set of timings for A, B, and 
C (i.e., row and column totals). This information is to be put in an array together 
with the raw data, and this array is to be called TIMING_DATA. 

Write a segment of code that will create this new array and do the necessary infor- 
mation processing. 

Include any assumptions made and any new variables declared. 
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7.0 PROCEDURES AND FUNCTIONS 

In HAL/S, the concept of a subroutine is realized in two forms: PROCEDURES and 
FUNCTIONS. Each is a block of code delimited by a block header and a CLOSE statement. 
These code blocks may be nested within PROGRAMS or within each other to any degree; 
scoping rules restrict the variables each block may reference, thus avoiding a large class of 
potential programming errors. HAL/S PROCEDURES and FUNCTIONS have two basic 
uses: to share a sequence of statements among different paths through an algorithm, and to 
segment a programming problem into manageable parts. 

7.1 USER DEFINED FUNCTIONS 

HAL/S includes a large assortment of built-in functions. These include trigonometric 
routines (SIN, ARCTAN), algebraic routines (SQRT, EXP), conversion functions (INTE- 
GER, VECTOR) and many others. These functions may be used in expressions along with 
variables, constants and operators; they add to the power of the language by eliminating 
much low level coding and allowing sophisticated operations to be expressed very com- 
pactly. The set of built-in functions is a part of the language, but HAL/S also allows the user 
to define new functions which may then be used in exactly the same way as the built-ins. 

One type of operation which occurs frequently in flight software is the limiting of a vari- 
able to a given range. A FUNCTION to perform this operation is shown below: 



M 


LIMIT: 


M 


FUNCTIONtVALUE, BOUND) SCALAR; 


M 


DECLARE SCALAR, 


M 


VALUE, bound; 


M 


IF VALUE > BOUND THEN 


M 


RETURN BOUND; 


M 


IF VALUE < -BOUND THEN 


M 


RETURN -bound; 


n 


RETURN VALUE; 


n 


CLOSE LIMIT; 



The function block is delimited by FUNCTION and CLOSE statements. The CLOSE state- 
ment is the same as in PROGRAMS; it consists of the word CLOSE and an optional block 
name. The FUNCTION statement contains three pieces of information: the label on the 
statement, which defines the name of the function, the names of the formal parameters 
(sometimes called dummy arguments), and the return-type of the function. 

LIMIT is a scalar valued function of scalars. This fact is denoted by the word SCALAR 
on the FUNCTION statement and the declaration of the formal parameters. In genera], a 
function's parameters and return value may be of any data type; hence the return type must 
always be specified on the FUNCTION statement and the formal parameters must always be 
declared. Declaring the formal parameters prior to any local data is good programming prac- 
tice and should be treated as a requirement. 



The operation of the LIMIT function may be seen from the following illustration, which 
is a graph of Y=LIMIT(SIN(X),l/2); for < x < 5 pi/2: 
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r/Z 



3n/2 



-1.0" 



Limit Function 



Functions must always end by executing a RETURN statement. The RETURN state- 
ment always has one operand which represents the value of the function. The value returned 
may be a variable, as in LIMIT, or any expression of the appropriate data type. Sometimes 
the executable code of a function consists of only the RETURN statement, for instance: 



mass: 

functionfrest_mass, speed) scalar; 
declare scalar, 

rest mass, speed; 

TAU: 

FUNCTIOWV) SCALAR; 

DECLARE V SCALAR; 

DECLARE C CONSTANT! 2980000) ; 
Z Z 

RETURN SQRTd - V / C ); 
CLOSE TAU! 

RETURN REST_MASS / TAU< SPEED); 
CLOSE mass; 



Using these functions, the apparent mass of a 100-ton vehicle moving at 20 kilometers 
per second can be computed by: 



APPARENT_MASS = MASS( 100,20); 
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As it turns out. the MASS function is not going to be very useful: Twenty kilometers 
per second is so slow (compared with the speed of light) that the relativistic mass increase 
will be lost in the round-off errors inherent in the computation. To find the range over 
which this effect can safely be ignored, we could execute the following code: 

DECLARE V SCALAR; 

DO FOR V = 250000 TO BY -100 UNTIL 

ALMOST_EQUAL( 1 .MASS( 1 ,V)); 
END; 
WRITE(6) 'THE ANSWER IS '. V; 

* This code references an additional user function, ALMOST_EQUAL, which could be 
written as shown below: 



ALMOST EGIML: 
FUNCTION! A, B) BOOLEAN; 
DECLARE SCALAR, 
A, b; 
DECLARE TOLERANCE SCALAR; 
IF B -= THEN 

TOLERANCE = .000001 ABSIBli 
ELSE 

TOLERANCE = .000001; 
IF AB5CA - B) > TOLERANCE THEN 

RETUPN FALSE! 
ELSE 

RETURN TRUE; 
CLOSE ALMOST ESUAL; 



ALMOST EQUAL is a BOOLEAN-valued function of scalars, as denoted by the word BOO- 
LEAN on the function header and the declaration of the formal parameters. Hence the RE- 
TURN statements have BOOLEAN operands: TRUE and FALSE. 

Since no other data type is automatically converted to BOOLEAN, a BOOLEAN expres- 
sion is the only permissible operand to the RETURN statement of a BOOLEAN function. 
Likewise, the RETURN statement of a VECTOR or MATRIX function must be supplied 
with a VECTOR or MATRIX expression, respectively. Exact matching of data type is not 
always required, however; the same implicit conversions that can be performed in an assign- 
ment statement can also result from a RETURN statement. These conversions are: 



1 . Single to double precision 

2. Double to single precision 

3. Integer to scalar 

4. Scalar to integer 

5. Integer or scalar to character 
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Aside from these exceptions, the value returned by a function must be of exactly the same 
type as that specified on the function header. 

The function header serves as a declaration of the function. Variables must always be 
declared before they are used in expressions; the same rule applies to functions as well. 
Therefore, function bodies are usually placed before their first invocation in a program. 

However, in the previous example, ALMOST_EQUAL was defined after it had been 
used in an UNTIL phrase. In this case it is possible to make a valid HAL/S program without 
moving the function body, by DECLARING the function before it is used, as shown in the 
example below: 



example_n: 
prosfam; 

declare v scalar; 

declare ali105t_equal function boolean; 

MASS: 

FUHCTION[PEST_MASS, SPEED) SCALAR; 

DECLARE SCALAR, 

REST_MASS, SPEED; 
TAU: 
FUNCTICWV) scalar; 

DECLARE V SCALAR; 



CLOSE TAU; 



CLOSE mass; 

DO FOR V = 250000 TO BY -100 UNTIL ALMOST_EQUAL( li MASSd, V)); 

end; 

write(6> 'the answer is', v; 
almost equal: 
function! a, b) boolean; 

declare scalar, 

A, B! 



CLOSE ALMOST_EQUAL; 
CLOSE EXAMPLE N; 



The FUNCTION DECLARE statement has the same general form as a variable declaration 
except that the word FUNCTION (with no argument list) precedes the type specification. 
Of course it is always possible to place a function body before its first invocation as was 
done with MASS and TAU above, in which case the DECLARE statement is unnecessary. 
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Exercises 

7. 1 A What values will be written by the following HAL/'S program? 

PROBLEM: PROGRAM; 

DECLARE I INTEGER INITIAL(l); 
PROC1: FUNCTION INTEGER; 

DECLARE I INTEGER INITIAL(l); 

1=1+1; 

RETURN I; 

CLOSE; 
PROC2: FUNCTION INTEGER; 

1=1+1; 

RETURN I; 
CLOSE; 
I = PROC1; 
WRITE(6) I; 
I = PROC2; 
1=1+1; 
WRITE(6) I; 
CLOSE PROBLEM; 
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7. IB What are the syntax errors in the following HAL/S program? (Line numbers are for 
reference only.) 

1) PROB2: PROGRAM; 

2) DECLARE X INTEGER; 

3) Y = Y +1; 

4) PROC1: FUNCTION INTEGER; 

5) DECLARE Y INTEGER; 

6) X=PROCl; 

7) X=PROC2; 

8) X=X+1; 

9) PROC2: FUNCTION; 

10) X=X+1 

11) Y=Y+1 

12) CLOSE; 

13) CLOSE; 

14) CLOSE PROB2 
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7.2 ARGUMENTS AND PARAMETERS 



The types of the arguments passed to a function must agree with the declaration of the 
formal parameters. The formal parameters (which some languages term "dummy argu- 
ments") are declared in the function body; the function arguments are those expressions 
specified in the function invocation. For example in the invocation: 

...UNTIL ALMOST EQUAL(1,MASS(I,V)); 

(arguments} 

The two arguments are scalar expressions. The formal parameters are declared in the func- 
tion body: 

ALMOST_EQUAL: FUNCTIONfAJBX BOOLEAN; 
DECLARE SCALAR,A,B; 
DECLARE TOLERANCE SCALAR> 



CLOSE; 




Formal parameters in the functions discussed so far have all been scalars, but it is possi- 
ble for them to be of any basic data type: Integer, Scalar, Vector, Matrix, Boolean, Charac- 
ter, Structure or Bit. The type of a formal parameter is determined solely by its declaration. 
The actual arguments supplied when a function is invoked must be of the same data types as 
the formal parameters. The exception to this rule is that under some circumstances the 
actual argument will be automatically (implicitly) converted to the type required by the 
function. The conversions that are permitted are the same set that are allowed in an assign- 
ment statement - those that were listed earlier as allowable type conversions in the 
RETURN statement. 

The declaration of a formal parameter takes exactly the same form as any other 
DECLARE statement. The INITIAL and CONSTANT attributes may not be used, but 
otherwise, any attribute is acceptable. A function may have any number of formal param- 
eters, including zero. The following is an example of a function in which no arguments 
appear: 
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ROLL: 






function integer; 




RE 


TJPN 5 RANDOM ♦ 


i; 


CLOSE 


roll; 





The ROLL function returns an integer in the range 1 to 6*. It may be invoked as 
DO UNTIL ROLL + ROLL = 7; 

Functions without parameters usually either access global data or perform some sort of in- 
put. ROLL gets its "input" from the RANDOM function, though reading cards or sensors is 
actually more typical. 

A function has only a data type, but formal parameters may have other attributes. In 
particular, a formal parameter may be arrayed. The following example is a matrix-valued 
function of arrays of vectors. The resulting matrix consists of the dot products of each pair 
of vectors. 



DOTS: 






FUNCTION! Al> A2 ) MATRIX! 10, 


10); 




DECLARE ARRAY! 10) VECTOR! 3), 




Al, as; 






DECLARE RESULT MATRIX! 10, 


10) 


; 


DO FOR TEI1FCRARY I = 1 TC 


10; 




DO FOR TEMPORARY J = 1 


TO 


10; 


RESULT = Al 


AS 


; 


I, J I: 


J: 




end; 






end ; 






* 






RETURN RESULT; 






close dots; 







Whenever a user-defined function is applied to an array, the result is an identically 
dimensioned array where each element is the result of applying the function to the corres- 
ponding element of the arrayed operand. 

Before leaving the subject of functions, one more very important point must be made: 
No function may modify any of its formal parameters. That is, parameters are viewed as 
constants within the function body. As a consequence, for example a formal parameter can- 
not be used as a loop control variable since a loop control variable is modified on each itera- 
tion. 



*but not uniformly distributed. See exercises. 
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The primary intent of this rule is to make HAL/S code easier to read and maintain. In 
languages which do not have this restriction, it is not possible to determine which variables 
are being modified by inspection of a statement like "A = USERFUNC(B,C,D);". In any 
language, it is reasonable to assume that A is the only variable modified. In HAL/S, this 
assumption will always be correct. 

Exercises 

7.2A In example 6, ALMOST EQUAL is declared a function in the declare group of the 
main-program block. 

With a minor modification to the program, this declaration is unnecessary. What is 
the change? 

7.2B In example 7, it is stated that while ROLL returns an integer in the range 1-6, its 
result is not uniformly distributed. 

a) Why? 

b) Modify the function ROLL so that it is uniformly distributed and incorporate it 
into a program that will count how many times a pair of "dice" must be rolled 
to have 7 come up 5 times. 

7.2C Write a HAL/S program that will read from channel 5 two arrays of 5 integers 
apiece, then check if corresponding elements of the two arrays are relatively prime 
(i.e., their greatest common divisor, or GCD, is 1). If they are not relatively prime, 
print out the pair and their GCD. 

A standard algorithm for computing the GCD of two numbers is called the 
Euclidean algorithm, and may be described as follows: 

Start with integers m and n, whose GCD is desired. If n = 0, then GCD(m,n) = abso- 
lute value of m. Otherwise, let r be the remainder resulting from dividing m by n. If 
r = 0, then GCD(m,n) = absolute value of n. Otherwise, it is the case that GCD(m,n) 
= GCD(n,r). Since, by the definition of the remainder, r will decrease in absolute 
value on each iteration, it will eventually become zero. The algorithm is thus guaran- 
teed to terminate. 

Note: The algorithm will work for any pair of integers, positive, negative, or zero. 
The HAL/S built-in function REMAINDER (M,N) gives the remainder when M is 
divided by N, as required by the algorithm. 

7.3 PROCEDURES 

A procedure is a code block similar to a function. The primary distinction is that proce- 
dures do not return values. The RETURN statement can be used in a procedure, but no 
operand may be provided. When the RETURN statement is executed in a procedure, control 
is returned to the caller. The RETURN statement is not required in a procedure, as proce- 
dures (unlike functions) will return if the flow of control reaches the CLOSE statement. 
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The only way to invoke a procedure is via the call statement. Procedure invocations are 
not used in expressions. 

The CALL statement consists of the keyword CALL followed by a procedure name and 
a list of arguments (if the procedure has defined any parameters); e.g.: 

CALL PROC1 (X,Y,Z); 

X, Y, and Z are the arguments; the procedure defines its formal parameters just as in func- 
tions: 



PROC1: PROCEDURE (A,B,Ch 
DECLARE SCALAR,A,B,CT 
DECLARE Q VECTOR 



RETURN; 
CLOSE PROC1; 




Formal parameters to procedures are like function parameters in all regards, and may 
not be modified within the procedure. Procedures also have ASSIGN parameters, described 
below. 

Suppose that the DOTS function of section 7.2 where LOCAL JVAR is declared a 
10x10 matrix was typically used in statements like: 

LOCAL JVAR=DOTS([Vl ] ,[V2] ); 

In this statement, the DOTS function is not used in an expression, but is directly assigned 
into LOCAL JVAR. In such a case, some inefficiency results from coding DOTS as a func- 
tion. This is because when the RETURN statement is executed, the 100 scalar components 
of RESULT are copied into LOCAL_VAR. A better arrangement would be to code DOTS 
as a procedure and invoke it by : 

CALL DOTS([Vl],[V2]) ASSIGN( LOCAL JVAR); 

The DOTS procedure could be coded as shown below: 



dots; 

pr0cedureia1, a2 ) assign! result); 
declare arrayc10) vect0r13), 

Al, A2; 
DECLARE RESULT MATRIX! 10, 10)5 
DO FOR TEMF0RARY I = 1 TO 10; 
DO FOR TEMPORARY J = 1 TO 10; 



RESULT = Al 

I, J I: 



AZ 



end; 
end; 
close dots; 
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Here we see an example of an assign parameter, RESULT. The statement, "DECLARE RE- 
SULT MATRIX(10,10);" does not create a variable as it did in the function DOTS, but 
merely defines the data type of the assign parameter. Each assignment into RESULT 
directly modifies LOCAL VAR. Thus, no copying of data is needed. 

Since variables used as assign arguments to procedures can be directly modified from 
the procedure body, no conversions whatsoever are permitted: The type of the variable 
passed as an assign argument must agree exactly with the declaration of the assign param- 
eter. In the program segment below, A is the only variable which may be passed to P. 

DECLARE A INTEGER, 

B INTEGER DOUBLE, 

C SCALAR, 

D ARRAY(2) INTEGER; 
P: PROCEDURE ASSIGN(X); 

DECLARE X INTEGER; 

X = 0; 
CLOSE P; 

A procedure may have any number of formal and assign parameters in any combination. 
Thus, several values can be computed in a single procedure, as shown below: 



STATISTICS: 

PROCEDURE(OATA) ASSIGN( LO_VAL. HI_VAL, MEAN); 

DECLARE DATA ARRAY(IOO) SCALAR? 

DECLARE SCALAR, 

LO VAL, HI VAL. MEAN; 

LO_VAL = miniTdata)); 

HI_VAL = MAXllDATA)); 

MEAN = SUMIlDATAll / 100! 
CLOSE STATISTICS; 



This procedure could then be used as in: 

DECLARE SAMPLES ARRAY(IOO) SCALAR; 
DECLARE SUMMARY ARRAY(3) SCALAR; 
CALL STATISTICS(SAMPLES) 
ASSIGN(SUMMARY$ 1 ,SUMMARY$2,SUMMARY$3); 
WRITE(6) 'Min, max and mean are:',SUMMARY; 



Unlike formal parameters, assign parameters may also be modified, as in the following 
procedure which sets "AUGLAST4" to the average of the four most recent values of 
INPUT: 
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FILTER: 

PROCEDURE! INPUT) ASSIGN! AUG_LAST<», BUFF); 
OECLARE SCALAR, 

INPUT, AUG_IAST4; 
DECLARE BUFF ARRAY!*) SCALAR; 
IBUFFl = [EUFFl ; 
1 TO 3 2 TO <* 

BUFF = INPUT; 
4 

AUG_LAST4 = SUM([BUFF!) / *; 
CLOSE FILTER! _^___ 



In this example, components of BUFF appear on the left and right sides of assignment state- 
ments. BUFF is probably not used by the code which invokes FILTER. It is passed as an 
assign parameter because a separate version must be maintained for each user of FILTER. 

The rules concerning arguments and parameters are summarized below: 

1 . Arguments may be expressions of any complexity, but their types must match those 
specified in the formal parameter declarations. The automatic conversions of preci- 
sion and between integers and scalars are performed, however. 

2. Assign arguments must be variables (possibly subscripted, but not expressions in gen- 
eral). They must match the types of the corresponding assign parameters exactly. 

3. Formal parameters may not be modified by the procedure or function which 
declares them. Assign parameters may be both referenced and modified. 

4. Copying of aggregate data (such as vectors or arrays) occurs only as a result of func- 
tion returns. If an argument (of any type) will not fit in a machine register or accu- 
mulator, its address is passed to the procedure or function. Thus HAL/S uses "call 
by name" for aggregate formal parameters as well as for assign parameters, even 
though the restriction on modification of formal parameters gives the appearance of 
"call by value". 



Exercises 



7.3A Rewrite the improved ROLL function of exercise 7.2B as a procedure, and modify 
the surrounding program to invoke it properly. This provides an alternate solution 
to 7.2B. 

Which of the two solutions is preferable? What general observations does this suggest 
about the choice between procedure and function forms, when both are possible? 
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7.4 SCOPING RULES 

The HAL/S scoping rules for variables may be summarized as follows: 

1. A variable may be referenced throughout the block in which it is declared and 
throughout any blocks nested in that block, provided that the nested blocks do not 
declare another variable of the same name. 

2. A variable declared in a nested block cannot be referenced from an outer block. 

3. If variables of a given name are declared in several blocks, each reference selects the 
version in the nearest enclosing block. 

HAL/S procedures and functions may be nested within programs, or within their proce- 
dures and functions to any degree. 

This block structuring capability in conjunction with the scoping rules above enables a 
measure of functional modularity in the development of software. In other words, HAL/S 
allows the collection of related procedures (and functions) into functional entities (them- 
selves procedures or functions). The local resources within these entities, viz. declared vari- 
ables and nested procedures become unavailable, actually unseen, to 'outsiders'. Communi- 
cation takes place only on the highest, most visible levels. 

Procedure and function names are also affected by scoping rules in that a procedure or 
function may be invoked from the immediately enclosing block and from any other blocks 
which are nested in the immediately enclosing block. An exception is that a procedure or 
function may not be referenced from within itself: HAL/S does not allow recursion. 

The following diagrams illustrate the scoping of block names. In each diagram, the 
shaded area indicates the region from which the block marked with an asterisk may be in- 
voked: 
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7.5 ARRAY(*), AUTOMATIC, AND NONHAL 

In the previous section, a procedure was written to find the minimum, maximum and 
mean of an array of 1 00 scalars. The STATISTICS procedure would be more general if it 
would accept an array of any size. The routine is rewritten as follows: 



STATISTICS: 

PROCEDURE (DATA) ASSIGN! LO_VAL, HI_VAL, MEAN) 

DECLARE DATA ARRAY!*) SCALAR; 

DECLARE SCALAR, 

L0_VAL, HI_VAL, MEAN; 

10_VAL = MINI [DA1AD; 

HI VAL = MAX! [DATA]); 

MEAN = SUMUOATAll / SIZE! IDATA 1) ; 
CLOSE STATISTICS; __ 



Two changes have been made: First, the formal parameter, DATA, has been declared as an 
ARRAY(*). DATA is still a linear array, but its size may now vary from invocation to invo- 
cation. Second, the constant 100 in the computation of MEAN has been changed to the ex- 
pression SIZE(DATA). SIZE is a built-in function which returns an integer denoting the 
number of actual elements in an ARRAY(*). 

The asterisk may be used as an array dimension only in the declaration of a formal pa- 
rameter. An array of any data type may possess this attribute, but all such arrays must be 
linear (single-dimensional). 

Even though a procedure or function may be written to accept an array of arbitrary size, 
the size of each actual argument must still be known at compile-time. Thus, given the 
STATISTICS procedure above and the declarations: 

DECLARE A ARRAY(IOOO) SCALAR; 
DECLARE SCALAR,X,Y,Z; 
DECLARE J INTEGER INITIAL(60); 

The statements, 

CALL STATISTICS(A$(1 TO 60)) ASS1GN(X,Y,Z); 



and 

CALL STATISTICS(A$(61 TO #)) ASSIGN(X,Y,Z); 
are both legal. 
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But; 

CALL STATISTICS(A$(1 TO J)) ASSIGN(X,Y,Z); 

is not legal because J is not a constant; i.e. the width of the partition (1 TO I) is not known 
until runtime. 

7.5.1 Automatic Initialization 

The following function will correctly sum the array of vectors, V, only on its first invo- 
cation: 



M 


VSUM: 


M 


FUNCTION! V) VECTOR; 


M 


DECLARE V ARRAY(») VECTOR; 


M 


DECLARE TOTAL VECTOR INITIAL(O); 


E 


- 


M 


DO FOR TEMPORARY N = 1 TO SIZE(IVl); 


E 


. 


M 


TOTAL = TOTAL ♦ V ; 


S 


N = 


M 


end; 


E 


- 


M 


RETURN TOTAL! 


M 


CLOSE vsum; 







The problem is that TOTAL is initialized to zero only on the first invocation of VSUM. One 
way of correcting the problem is to add the statement, "TOTAL = 0;" before the loop. A 
more convenient means of attaining the same result is to replace the declaration of TOTAL 
with: 



DECLARE TOTAL VECTOR INITIAL(O) AUTOMATIC; 

The AUTOMATIC attribute controls the manner of initialization of a variable: An 
AUTOMATIC variable is set to its INITIAL value on each entry to the containing code 
block. In effect, the compiler generates an assignment statement for each automatically 
initialized variable immediately after the declare group of the containing block. 

It is important to remember that by default, initialization is STATIC (the opposite of 
AUTOMATIC). If the AUTOMATIC attribute is not specified, initialization occurs only 
once, at the time when the program is first loaded. 

7.5.2 The NONHAL Attribute 

Sometimes it is desirable to program an application in a mixture of HAL/S and non- 
HAL/S code, either to capitalize on existing software or to make machine-dependent 
operating system interfaces which are not available in HAL/S. When the non-HAL code 
consists of subroutines (procedures and/or functions) there is a convenient way of making 
them accessible to HAL/S. This is the NONHAL attribute, used in a declare statement. An 
example is: 



DECLARE CPU_COST FUNCTION SCALAR NONHAL(l); 
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The form of this statement is essentially the same as the declaration of a HAL/S function 
that will be referenced before it is defined. The only difference is the NONHAL attribute, 
which indicates that the function body is not included in this compilation. Note that the 
data type of a NONHAL function must still be supplied. 

A similar form may be used to define a procedure written in some other language, e.g.: 

DECLARE PEARSON_CORRELATIONS PROCEDURE NONHAL(2); 

Since a procedure has no data type, none is supplied in the declaration. NONHAL proce- 
dures and functions may have formal parameters; the number and types of these parameters 
is not specified in the declaration, and in fact, may vary from call to call. No type checking 
is performed on the arguments to a NONHAL procedure or function, and these blocks may 
even modify their input parameters: hence, great care should be taken when using the 
NONHAL attribute. 

The operand to the NONHAL attribute, which consists of a positive integer, indicates 
the particular language in which the subroutine was written. The association of each number 
with a particular language is implementation dependent, and some compilers may not sup- 
port NONHAL at all. 

These statements may not be used to interface separately compiled HAL/S modules. A 
means of sharing HAL/S subroutines between separate HAL/S programs will be presented in 
Chapter 1 1 . 



End of Chapter Problems 



7A 




Consider the above nesting diagram that depicts the scoping of blocks. 

For each of the procedure blocks numbered 2-6, write the numbers of the blocks 
from which that procedure may be invoked. 
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7B As in exercise 2B, a ball is thrown from a height of 1 10 feet with a horizontal veloc- 
ity of 4 ft/sec. Suppose that it now rebounds to 75% of its previous height on each 
of 10 bounces, and consider the following skeleton of a program to compute the 
time until the tenth bounce: 



DO FOR 1 = 1 TO NUMBER_OF_BOUNCES; 
DROP_TIME = TIME_TO_DROP (HEIGHT); 
CALL HORIZ_MOTION (DROP_TIME) ASSIGN (HORIZ„DIST); 
TIME = TIME + DROP TIME; 
WRITE(6) 'BOUNCE', I, 'TIME', TIME, 'HORIZONTAL 

DISPLACEMENT', HORIZ_DIST; 
CALL BOUNCE ASSIGN (HEIGHT, BOUNCE_TIME); 
CALL HORIZ_MOTION (BOUNCE_TIME) ASSIGN (HORIZ_DIST); 
TIME = TIME + BOUNCEJTIME; 
END: 
CLOSE DROP; 

Complete the program by writing all necessary declarations, initializations, proce- 
dures, and functions. 



7C In exercise 5A, a program was written to compute the value of a definite integral of 
the SQRT function using Simpson's rule. Modify that program to compute the value 
of a definite integral of a function of the form f(x) = ax 3 + bx 2 + ex + d. Assume 
that the quantities a, b, c, d, initial, final, and epsilon are available in that order on 
channel 5. 

7D The increased modularity and readability brought about by the use of procedures 
and functions is not without cost. Procedure and function calls are typically some- 
what expensive in terms of computer time, and their over-use can unnecessarily slow 
down a program. 

For example, in problem 7B, the procedure HORIZ_MOTION could easily be elimi- 
nated. Furthermore, on the last bounce, the height and time of the next bounce are 
computed, even though they will never be used. Assuming that efficient use of com- 
puter time is here of primary importance, rewrite the solution so as to eliminate 
these two sources of inefficiency. 
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8.0 I/O AND CHARACTER STRINGS 

The HAL/S I/O statements, READ, READALL, WRITE and FILE, are designed to pro- 
vide a convenient interface to external devices used for software checkout and non-flight 
applications. The READ, READALL, and WRITE statements perform sequential character 
I/O to such devices as card readers and line printers. The file statement transfers binary 
(unformatted) data to and from random-access devices such as drums and disks. These 
statements are all designed to provide the basic capability of getting data in and out of a 
HAL/S program with a minimum of programmer effort. 

For sophisticated ground applications, the simplicity of these statements can be a dis- 
advantage when highly formatted output is required. To give the programmer complete 
control over input and output formats for those applications that require it, HAL/S provides 
a comprehensive set of character manipulation facilities. Any data type may be converted 
to a character string; operations on the resulting string can produce any desired representa- 
tion of the original data. 

Although most flight computers do not have interfaces to character devices such as line 
printers, it is common practice to use ground based computers for early checkout of HAL/S 
code. HAL/S I/O statements can then be used to address the wide range of external devices 
(peripherals) found on such computers. 

8.1 THE WRITE STATEMENT 

The WRITE statement has already been used in the examples of the previous chapters. 
A typical instance was: 

WRITE(6) 'THE ANSWER IS', V; 

Although this statement was not fully described at the time, the assumption was made that 
the string "the answer is" and the value of V (a scalar) would come out on some sort of 
printer. The following paragraphs describe the manner in which the output is sent to a 
particular device and the format in which it is printed. 

The routing of output to a particular device is controlled from outside of the HAL/S 
program. Each WRITE statement specifies a channel number (in this case, channel 6). 
A channel may be thought of as a virtual device or as a port between the HAL/S program and 
some peripheral. HAL/S defines ten channels, numbered zero through nine, which are 
used in READ and READALL statements, as well as in the WRITE statement. At the 
HAL/S level, all channels are equivalent; it is only at execution-time that the channels are 
associated with actual devices. This association is made in an implementation dependent 
manner: it is usually done through some type of "job control language" or through com- 
mands at an interactive terminal. The appropriate HAL/S User's Manual must be consulted 
for details. In most systems, however, channel 6 is automatically associated with a line 
printer. 
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The channel number used in HAL/S I/O statements must be an integer expression which 
is computable at compile time (i.e., composed entirely of literals, constants, and the basic 
arithmetic operators). It is good practice to give a name to each channel via the REPLACE 
statement, as shown below: 

REPLACE PRINT BY "6"; 

REPLACE CARDS BY "5"; 

REPLACE TERMINAL BY "7"; 

DECLARE I INTEGER, S SCALAR, D SCALAR DOUBLE; 



READ(CARDS) I, S, D; 
WRITE(PRINT) I, S, D; 

etc. 

Naming channels in this way has several advantages: First, if the channels are well named 
the program will be more readable. Second, it is easier to change the number in one 
REPLACE statement than the channel numbers in a collection of WRITE statements. 
Finally, it is possible to find all of the I/O statements which use a particular channel by 
looking up the cross reference for the channel name. The naming could alternately be done 
by declaring integer CONSTANTS. 

After the channel number, the remainder of the WRITE statement consists of a series of 
expressions. There may be any number of expressions of any datatype; any construct 
which has been termed an expression in this book may be used in a WRITE statement. In 
the previous examples, the expressions have all been simple variables, but they may be of 
any complexity. Thus, values that are needed only for output need not be stored in a 
variable. A program to compute one of the roots of a quadratic equation given scalar coeffi- 
cients A, B and C, might consist only of: 

READ(5) A, B, C; 

WRITE(6) (-B + SQRT(B**2-4 A C))/2 A; 

When any type of data aggregate (e.g., VECTOR, ARRAY) is written, it is first unraveled 
into its individual integer, scalar, character, or bit components. These components or array 
elements are then transmitted to the external device. The sequence is the same as was 
described in conjunction with shaping functions in Chapter Six. For instance: 

DECLARE M ARRAY(2) MATRIX; 
WRITE(6) M; 

results in the components of M being transmitted in the sequence: 

M$(1:1,1),M$(1:1,2),M$(1:1,3),M$(1:2,1),M$(1:2,2)...MS(1:3,3), 
M$(2:1,1)...M$(2:3,3). 
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When a data aggregate is unraveled in a WRITE statement, the original structure may not 
be retained.* In the absence of the I/O control functions (discussed in the next section), 
all of the output from a single WRITE statement is placed on as few lines as possible, with 
only spaces separating the operands and the elements of each operand. The number of 
spaces placed by default between successive values (termed the default tab) is implementa- 
tion dependent. 

After the operands of the WRITE statement are reduced to a sequence of Integer, Scalar, 
Character, or Bit components, each component is converted to its standard external format, 
which is a character representation of its value. Each of the four basic data types above has 
its own format. 

The standard external format of an integer is a string of decimal digits, preceded by a 
minus sign if the integer is negative. Enough leading blanks are appended to make the length 
of the resulting string constant for all integers of a given precision. This standard length 
varies from compiler to compiler, but is always large enough to contain any possible integer 
value. Leading zeros are never included in the representation of an integer. The following 
table shows the output format of a few integer values for a compiler which assumes an 
integer field width of 6. 

Value Standard External Format 



256 256 

-32,768 -32768 

-2 -2 

Double precision integers have the same format, except that the field width is approxi- 
mately twice as large. 

The standard external format of scalars is scientific notation in a fixed-width field. 
Scalars always take the form "bd.dddE±dd" or "-d.dddE+dd", where each "d" represents 
a decimal numeral. Exactly one non-zero digit always appears to the left of the decimal 
point and positive numbers are always presented with a leading blank. The number of digits 
to the right of the decimal point and the number of digits in the exponent are constant for 
any particular version of the compiler. These numbers are always chosen so that all of the 
precision contained in the scalar can be presented. The fixed field width simplifies the 
writing of code to re-format scalar values as will be seen in subsequent sections. The fol- 
lowing table illustrates the output representation of various scalar values on a computer 
with an eight digit mantissa and a two digit exponent. 

Value Standard External Format 



pi 


3.1415927E+00 


1/2 


5.0000000E-01 


-3 1/8 


-3.1250000E+00 


.0001 


1 .0000000E-04 


-1,000,000 


-1.0000000E+06 





0.0 



*Some implementations will print matrices one row per line automatically, but this is not a language 
requirement. 
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Note in the table above that zero is treated as a special case. Double precision scalars are 
presented identically except that the standard width of the mantissa is greater. 

The remaining data types, CHARACTER and BIT (including BOOLEAN), each have 
two standard external formats. These formats are very similar, but one is more suitable for 
printed listings and the other is more suitable for output that is to be read back in by 
another HAL/S program. 

The programmer specifies which format is to be used for character and bit output by 
means of the device directive. The device directive is not a HAL/S statement; it is a com- 
mand to the compiler which affects the way that subsequent WRITE (and READ) state- 
ments are interpreted. The device directive specifies whether the output on a particular 
channel is paged (the format suitable for printing) or unpaged (the machine-readable 
format). 

Paged output is organized into lines and pages. Since the WRITE statement is most 
frequently used to obtain printed diagnostics and results, paged output is generally the 
default. 

Unpaged output is simply a stream of data values in a format compatible with the 
READ statement. To designate a particular channel as unpaged, the device directive is used, 
as shown below: 

column 1 channel number 0—9 

D DEVICE CHANNEL=6 UNPAGED 

t 

no semicolon 

Compiler directives may vary from implementation to implementation. All present 
compilers include the device directive as shown above. Other directives are described in 
HAL/S Users Manuals. These directives should not be considered as executable statements: 
the presence of a device directive anywhere in a compilation governs all uses of the speci- 
fied channel. 

The standard external format of character strings on a paged file is simply the content 
of the string, with no conversions or padding. On an unpaged file, the character string is 
enclosed in single quotes ('). The output from the statement: 

WRITE(6) 'THE ANSWER IS', V; 
will be: 

THE ANSWER IS 7.5836210E+05 
on a paged file, but will be: 

'THE ANSWER IS' 7.5836210E+05 
on an unpaged file. 



The WRITE Statement 8-5 

The standard external format for bit strings is a series of ones and zeros. As in character 
strings, bit output is enclosed in quotes on an unpaged file. A BOOLEAN consists of a single 
bit, so there are only four possible outputs as shown below: 

Boolean Value Paged Output Unpaged Output 

TRUE/ON 1 '1' 

FALSE/OFF '0' 

Longer bit strings (see Chapter 13) are output with a blank between every set of four bits to 
enhance readability. The value HEX'1234' would be output as 0001 0010 001 1 0100 on a 
paged file, and as '0001 0010 001 1 0100' on an unpaged file. 

For character and bit types, only the unpaged format is compatible with the READ 
statement. Since these types are of a variable length and may contain embedded blanks, 
the quotes are needed to indicate the end of one value and the start of the next. 

In summary, the WRITE statement will evaluate a list of expressions of any data type, 
convert the resulting values to their standard external formats, and transmit these to the 
device which has been associated with the specified channel. There are no restrictions on 
the expressions in a WRITE statement, and in no case will any data be lost in the transla- 
tion to the standard external form. As a result, the WRITE statement is extremely easy 
to use if the format of the output is of little concern; this makes it convenient for diagnos- 
tics, but less appropriate for report generation. 



Exercises 

8.1A Why is it generally considered good programming practice to give a name to each 
channel for I/O functions and use the HAL/S REPLACE statement to assign the 
channel number? 

8. IB What happens when an executing program encounters a HAL/S WRITE statement 
followed by a list of expressions? What limitations are there on the expressions 
that are legal in a WRITE statement? 

8 . 1 C Given the following declarations : 

DECLARE S SCALAR, 
I INTEGER, 
V VECTOR, 
M MATRIX, 
B BOOLEAN, 
C CHARACTER; 
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Which of these WRITE statements will produce output compatible with the HAL/S 
READ statement 

a) On a PAGED device? 

b) On a UNPAGED device? 

1) WRITE(6) S, I, V, M; 

2) WR1TE(6) 'I = ', I, ', V = ', V; 

3) WRITE(6) VS1, VS3, VS2, B; 

4) WRITE(6) B, C; 

5) WRITE(6) S, M, V$(2 TO 3), I; 

8.2 I/O CONTROL FUNCTIONS 

When the statement: 

WRITE(6) M; 

where M is a matrix, is executed, the three-by-three structure of M is lost. The arrangement 
of the components of M depends only on the field width of a scalar, the amount of the 
default tab, and the maximum number of characters per printed line. If the width of a 
scalar is 13, the default tab is 5 and a line is 132 characters, then seven components will 
be printed on the first line, and the remaining two on a second line. To obtain a better 
arrangement, the following WRITE statement may be used: 

WRITE(6) M$(l,»), SKIP(l), COLUMN(l), MS(2,*), SKIP(l), COLUMN(l), 
M$(3,*); 

This statement will cause one row of the matrix to be printed on each output line. 

SKIP and COLUMN are I/O control functions. Syntactically, they resemble other 
functions, but they may only be used as arguments to the sequential I/O statements, WRITE, 
READ, and READALL. Each has a single argument which may be any integer or scalar 
expression; if the expression is scalar-valued, it is rounded to the nearest integer. These 
functions do not return a value, but only control the location in a file where subsequent 
data will be read or written. 

The I/O control functions may be thought of as moving a read/write mechanism across 
a two dimensional medium. The SKIP, LINE, and PAGE functions cause vertical movement 
and the COLUMN and TAB functions cause horizontal movement. In the example above, 
"SKIP(l), COLUMN(l)" moves the write mechanism to the beginning of a new line. The 
SKIP function causes relative movement (down one line), and the COLUMN function 
causes absolute positioning (to the first column of the new line). 

The sequence, "SKIP(l), COLUMN(l)", is implied at the beginning of each WRITE 
statement. This automatic positioning will be overridden if the WRITE statement has 
explicit horizontal and vertical positioning functions prior to the first data operand. If only 
horizontal or vertical positioning is specified, then the default movement is partially over- 
ridden. In the statement: 
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WRITE (6) COLUMN(IO), M$(l,*): 

the default horizontal positioning to column one is overridden, but the default vertical 
positioning to the next line is not. Likewise, the statement: 

WRITE(6) MS(1,1), TAB(12), M$(l,2), TAB(12), M$(l,3); 

would leave twelve blanks between the end of one component and the start of the next. 
Unless overridden by explicit horizontal motion commands, a TAB function is implied 
between each pair of data operands to the WRITE statement. The amount of the default 
TAB is implementation dependent. 

Using these functions, an array of matrices: 

DECLARE AM ARRAY(2) MATRIX(3,3); 

can be output in a readable form by: 

WRITE(6), SKIP(2), COLUMN(IO), AM$(1:1,*), TAB(20), AM$(2:1 ,*), SKIP(l), 
COLUMN(l), 'AM=', COLUMN(IO), AMS(1:2,*), TAB(20), AM$(2:2,*), SKIP(l), 
COLUMN(IO), AMS(1:3,*), TAB(20), AM$(2:3,*), SKIP(2); 

yielding: 



AM 



AM$(1:) AMS(2:) 

The effect of the remaining I/O control functions, LINE and PAGE, depends on whether 
they are used on a paged or an unpaged channel. On a paged channel, the LINE function's 
argument must be in the range one to the maximum number of lines per page. The device 
mechanism is moved forward until the current line number is the same as that specified in 
the LINE function. This may cause the device mechanism to cross a page boundary. The 
most common use of the LINE function is to advance to the top of the next page, as in : 

WRITE(6) LINE(l), This is a page header'; 

When used on an unpaged channel, the LINE function causes movement to an absolute 
line number within the entire file. 

The PAGE function may only be used on paged files. PAGE(n) results in relative move- 
ment by "n" pages; the current column and line numbers are not affected. A typical use of 
the PAGE function is to skip over unwanted pages of header on input. 
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The preceding paragraphs apply equally to all implementations of the HAL/ S language. 
The principal variations between implementations are the number of columns per line 
(and lines per page) and the result of requesting backward movement of the read/write 
mechanism. 

The statement: 

WRITE(6) 'RESULTS FOLLOW, TAB(-14), ' '; 



may have any of several results, depending on the compiler in use. On some systems, the 
two character strings may both be printed in the same columns of the same line, yielding: 
RESULTS FOLLOW . On other systems, the second character string may overlay the first, 
yielding just the underscores. Similarly, backwards line movement may or may not be 
supported and may be device dependent: the effect of executing SKIP(— 1) may vary from 
system to system. The relevant User's Manual should always be consulted before requesting 
negative column or line movement. 

The following table summarizes the I/O control functions: 

I/O Control Function Operation 

SKIP(K) Relative line movement 

Line = (Line + K) mod page size 

LINE(K) Absolute line movement 

Line = K 

TAB(K) Relative column movement 

Col = Col + K 

COLUMN(K) Absolute column movement 

Col = K 

PAGE(K) Relative page movement 

Page = Page + K 



Exercises 

8.2A Consider the following HAL/S statements: 

DECLARE ARRAY(3) MATRIX, MAT_ARR1, MATARR2; 



WRITE(6) MAT_ARR1, MAT_ARR2; 
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a) Describe what the resulting output would look like. 

b) Change the WRITE statement such that the resulting output will be formatted 
as thus: 

[MAT_ARR1 1: ] [MAT_ARR2 1: ] 

[MAT_ARR1 2: ] [MAT_ARR2 2: ] 

[MAT_ARR1 3: ] [MAT_ARR2 3: ] 

8.2B For each of the I/O control functions below, which of the following statements 
apply to its use in HAL/S WRITE statements? 

a) default characteristics (implied unless overridden) 

b) causes absolute vertical movement 

c) causes relative vertical movement 

d) causes relative horizontal movement 

e) causes absolute horizontal movement 

1) LINE(l) 5) COLUMN(l) 

2) SKIP(l) 6) SKIP(O) 

3) TAB(20) 7) SKIP(5) 

4) PAGE(2) 

8.3 THE READ STATEMENT 

The syntax of the HAL/S READ statement is also quite simple. Some examples (e.g., 
"READ(5) A, B, C;") have already appeared in this manual; the general form is not much 
more elaborate. The READ statement consists of the word READ and a channel number 
followed by a list of variables and/or I/O control functions. The I/O control functions used 
in a READ statement work the same way as in the WRITE statement. 

When any type of data aggregate appears in a READ statement, the components are 
filled in the "natural sequence"; i.e., in the same order in which they would be written. 
In the code: 

DECLARE A SCALAR, V VECTOR, I ARRAY(2) INTEGER DOUBLE; 
READ(5) A, V, I; 

data from the external file will be assigned in the sequence: 

A, V$l, V$2, V$3, I$l, I$2. 

If the file was originally produced (stored on disk, punched on cards, etc.), by a HAL/S 
WRITE statement, its contents will be in the appropriate format for the READ statement. 
Except for character and bit strings on paged files, the standard forms produced by the 
WRITE statement are all acceptable on input. 

Input data prepared manually may be written in free format; all of the following lines 
are acceptable input for the READ statement above: 
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a) 0, 0, 0, 0, 0, 

b) 1 3E5 3.271E+06 .001 24 -2 

c) 1, 2 3 4, 5 6 

The examples illustrate several points. First, it is not necessary to distinguish between 
integer and scalar values. Any sequence of characters which comprise a valid integer or scalar 
literal (as described in Chapter Two) is suitable to be read into either an integer or a scalar; 
however, norwntegral values read into an integer will result in a {untime error. 

• Individual values (in this case, numbers) in the input file must be separated by blanks 
or other delimiters. One or more blanks, a single comma, or a single comma and any number 
of blanks are all equivalent. Multiple commas are a special case, which indicate "missing 
data". If the input file contained: 



1, 



2, 3, 4. 5 



then the value of the second scalar in the READ statement above (VS1) would not be 
changed . 

When a semicolon is encountered in the input stream, the current READ statement is 
terminated. If the input consisted of: 

1.5, 2.6; 

then only two values would be read, regardless of subsequent values and punctuation in 
the file. This fact can be useful when a program must process a variable number of input 
values. For instance, a program to sum a sequence of numbers could be coded as: 



ADD: 








program; 








DECLARE 


TOTAL SCALAR 


INITIAL! 0) AUTOMATIC! 


DECLARE 


A ARRAY! 100) 


SCALAR 


INITIAL! 0); 


READI51 


t A ]; 






DO FOR TEMPORARY I = 


1 TO 100 UNTIL A = 0; 
1 


TOTAL 


= TOTAL ♦ A 


' 




end; 








WRITE (6 


'TOTAL IS ' 


TOTAL 




CLOSE ADD; 









One valid input to this program could be: 

-3.95, -17.31, -9.93, 572.35, -250, +1.10, -.45, +7.50, 

In this case, the READ statement would terminate when the semicolon was reached, leaving 
the rest of the array (A$ (9 TO 1 00)) equal to zero. 
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As illustrated above, a READ statement may take data from many lines of a file. Lines 
will be processed until either a semicolon is reached or values are found for all of the oper- 
ands of the READ statement. The end of each line of input (e.g., card column 80) serves 
as a delimiter equivalent to a blank. Hence, individual values may not be split across lines. 

As in the other sequential I/O statements, WRITE and READALL, a SKIP(l), 
COL,UMN(l) operation is implied at the beginning of each READ statement. This may be 
overridden by the same means used in the WRITE statement; e.g., 

READ(5) SKIP(Q), TAB(O), X; 

can be used to read data to the right of a semicolon which terminated the previous READ 
statement. If the input data happens to be stored in fixed card columns, then the TAB and 
COLUMN functions can be used to skip over unwanted data. 

Any attempt to read past the end of a file will result in a runtime error. Chapter Ten 
describes a mechanism for recovering from this and other errors. 



EXERCISES 

8.3A Let the program ECHO begin as follows: 

ECHO: PROGRAM; 

DECLARE INTS ARRAY(3) INTEGER INITIAL(l), 

SCALS ARRAY(3) SCALAR INITIAL(O); 
READ(5) INTS, SCALS; 

What will INTS and SCALS contain given the following inputs? 

a) 8, 7, 6.55, -1, 2.25E2, 4; 

b) -1E-1„,7.2; 

c) 2.49, ,2. 51,2.49,, 2.51; 

8.3B Suppose input intended for the program ECHO of problem 8.3A has been formatted 
as follows: 



Col. 1 


Col. 8 


Col. 78 


4 


i 


i 


INTS: 


3 4 5 


00000001 


SCALS: 


6.1 7.2 8.3 


00000002 



Modify the READ statement in ECHO to ignore the labels on the left and the 
sequence numbers on the right, and read in the values for INTS and SCALS 
properly. 
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8.4 CHARACTER STRINGS 



A HAL/S character variable may contain a string of characters; the number of charac- 
ters is allowed to vary at runtime from zero up to a maximum specified in the declaration 
of the variable. The character datatype is declared in the same general way as other data 
types; e.g., 

DECLARE STARS CHARACTERS) INITIALC*****'); 

The variable STARS is a character string of maximum length five and initially con- 
taining five asterisks. Each character variable has both a maximum length and a current 
length. The current length is adjusted every time the variable is assigned, though it can never 
become greater than the declared maximum. If the length of the string on the right-hand 
side of an assignment exceeds the maximum length of the target variable, characters are 
truncated from the right before assignment. In the code below, RATING starts with a 
length of zero (it is initialized to the null string), but after the assignment the current 
length becomes three: 

DECLARE RATING CHARACTER^) INITIALC); 
DECLARE QUALITY INTEGER INITIAL(3); 
RATING = STARSSd TO QUALITY); 

As shown, the general form of character subscripting is the same as vector subscripting, 
except that the width of a partition does not have to be known at compile-time. 

In addition to subscripting a character string to pick out a single character or a sub- 
string, HAL/S provides an operator for putting two strings together. This is the catenation 
operator, denoted by the keyword "CAT" or by the sign " I I ". The effect of this operator 
is to append the right-hand operand to the end of the left-hand operand: 

'ABC I I 'DEF' 

yields: 

ABCDEF'. 

Character strings may also be compared with each other, as in : 

IF RATING NOT = '***' THEN EXIT; 

and may be compared for "greater than" or "less than" in order to sort them alphabetically. 
The latter capability is affected by the collating sequence and is therefore implementation- 
dependent. More details can be found in the appropriate Users Manual. 

HAL/S also provides a set of built-in character functions (listed in Appendix A). The 
following paragraphs describe some of these functions as well as providing some practical 
examples of character operations. 
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One of the major uses of character variables and operations in HAL/S is formatting out- 
put. In the WRITE statement below, the value of the integer variable N will be inserted 
in a line of output: 

DECLARE N INTERGER; 



WRITE(6) 'THE ANSWER IS \TAB(0),N,TAB(0),' FPS': 

If N is six, the output from this statement will look like: 
THE ANSWER IS 6 FPS 



in a 



This statement illustrates an important rule: whenever an integer or scalar is used in a 
character expression it is converted to its standard external format (a character string) 
The standard external format of an integer includes leading blanks. These blanks can be 
removed by means of the TRIM built-in function, as shown below: 

WRITE(6) 'THE ANSWER IS ',TAB(0),N,TAB(0),' FPS'; 

This statement will produce: 

THE ANSWER IS 6 FPS 

The TRIM function removes all leading and trailing blanks from a character string Its argu- 
me " t D "!" St b l a characto expression; thus N is converted to character before the invocation 
on TRIM in the statement above. 

Similar character functions are RJTJST and LJUST, which add leading and trailing 
blanks respectively. Each of these functions takes two arguments, a character expression 
and a field width. These functions right or left-justify the value of the character expres- 

S™XYz" ° f SPedfied Wldth ' Wth N= 6 ' RJUST < N ' 2 > y ie)ds ' 6 ' and LJUST OXYZ',4) 

Note that within the quotes of a character literal, blanks are treated the same as any 
other character. Any character may be used in a quoted string. 
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Like variables of any data type, character strings may be arrayed. The following func- 
tion could be used to display the value of a boolean (B) in the format specified by an 
integer (TYPE): 



STATE : 

FUNCTIDNIB, TYPE> CHARACTER! 5) ; 
DECLARE B BOOLEAN, 

TYPE integer; 

DECLAPE YES ARRAY!*) CHARACTERS) INITIAL! 'TRUE' 
DECLARE NO ARRAY! <t > CHARACTER! 5) INITIAL! 'FALSE ' 



'ON', 
'OFF' 



•OPEN', 
•SHUT' 



'VALIB' ); 
'ERROR' ); 



IF B THEN 

RETURN YES 



TYPE: 



ELSE 

RETURN NO 

T 

CLOSE state; 



This function could be invoked as shown below: 

DECLARE BOOLEAN INITIAL(OFF), VALVE, POWER; 

WRITE(6) 'VALVE=',STATE(VALVE,3),'POWER=',STATE(POWER,2); 

This example would produce: 



VALVE=SHUT 



POWER=OFF 



The concepts of maximum length and current length apply to each element of an array, 
and to the value returned by a character function. The maximum lengths of all elements of 
a character array are equal, but the current lengths may vary. Thus, the length of the value 
returned by STATE can vary from two to five. The maximum length on the function 
header can never be exceeded, however; if "RETURN 'ABCDEFH';" was executed, the 
string would be truncated at the right yielding 'ABCDE'. 

It should be noted in the example above that the n th element of a character array such 
as YES is represented by "YES$(N:)" and not "YESSN". The trailing colon must be sup- 
plied to indicate the absence of component subscripting just as in arrays of vectors, matrices 
and Bit Strings (Booleans). As before, both array and component subscripts may be supplied 
if needed: YES$(3:2) is the second character of the third element of YES: 'P'. 

A few examples of automatic conversion to character type have appeared above. It is 
also possible to explicitly convert to character type via the CHARACTER shaping function. 
This function is syntactically identical to the INTEGER, SCALAR, VECTOR, and MATRIX 
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shaping functions described previously. It converts its argument or arguments to their 
standard external formats. It has an additional form that allows conversions to octal or 
hexadecimal as shown below: 

WRITE(6) CHARACTER$(@OCT)(BIT(N)) ; 

If the integer N is equal to 29, this statement will produce- the output: 

'0000000035'. 

When the CHARACTER function is subscripted with a radix (@OCT pr @HEX), its oper- 
and must be a bit string. The BIT function above is not fully described until Chapter 13, 
but in this case it merely returns a bit pattern equivalent to its argument. 

Another use of the character manipulation facilities is reading data that is not in the 
standard HAL/S format. Integer data that has been punched on cards in the format shown 
by the table below could be read in by the HAL/S statements which' follow it. 

Input Format 



Columns 

1-3 
4-5 
6 
7-10 



Description 

case number 

age 

l=male, 2=female 

X factor 



Example of Input 

1152612781 



AGE: 

program; 

declare c character(80 ) ; 
declare integer, 

case_num, age 


SEX, x; 


READALLI5) C; 




CASE_NUM = INTEGER! C 

1 TO 


); 

3 


AGE = INTEGER (C ); 
* TO 5 




SEX = INTEGER! C )i 
6 




X = INTEGER (C ); 
7 TO 10 




CLOSE AGE; 
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This would yield the following values: 



CASE 


NUM 


= 


115 


AGE 




= 


26 


SEX 




= 


1 


X 




= 


2781 



When the argument to the INTEGER shaping function is a character string, all of the 
characters must be in the range 0-9 (i.e., comprise a valid integer). Thus, this code would 
not work if the CASE_NUM field (for instance) was coded with leading blanks instead of 
leading zeros. The TRIM function can be used to make the program more tolerant as in: 

CASE_NUM = INTEGER(TRIM(CS(1 TO 3))); 

The READALL statement used to obtain C from channel 5 (probably a card reader) will 
be fully described in the next section of this chapter. 

Since the standard external format for scalars is not always convenient, a character func- 
tion like the one below can be used to write a more readable XX.YYY notation: 



REFORMAT: 

FUNCTICN1X, DECIMALS, WIDTH) CHARACTER( 20 ) i 
DECLARE X SCALAR, 

DECIMALS INTEGER, 

WIDTH INTEGER; 

X IS THE NUM3ER TO BE CONVERTED, DECIMALS IS THE NUMBER OF 
DIGITS TO BE PRINTED AFTER THE DECIMAL POINT, AND WIDTH IS 
THE TOTAL LENGTH OF THE STRING RETURNED 

DECLARE Y SCALAR; 

DECLARE C CHARACTER C 20 ) ; 

DECLARE S CHARACTERC 1 ) ; 

DECLARE ZEROS CHARACTERC 20 ) CONSTANT! CHAR ( 20 ) '0' ); 

IF X < THEN 

do; 

y = -x; 

s = '-■•, 

end; 

ELSE 

do; 



y = x; 




s = ■ ■; 
end; 

decimals 
c = character (integer (10 y))! 

SDOUBLE 




IF LENGTH(C) < DECIMALS THEN 




C = ZEROS 1 1 c; 
1 TO DECIMALS-LENGTH(C) 




RETURN RJUSTfS II C II '.' II C 

I TO tt-DECIMALS K-DECIMALS-1 TO # 


WIDTH ) ; 


CLOSE REFORMAT; 
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With the function before, 

WRITE(6) REFORMAT(SQRT(2), 3, 5); 
would yield : 

'1 .414'; i.e., a five character field with three decimal places. 

Two new features are introduced in this example. First, the expression "CHAR(20)'0"' 
is a shorthand notation for the string consisting of twenty zeros. It is a character literal 
which may also be used in an assignment statement such as: 

C = CHAR(80)' '; /*blank card*/. 

An additional built-in function, LENGTH, is also used. LENGTH takes a character variable 
or expression as an argument and returns an integer representing its current length. 

The REFORMAT function shown here has one deficiency: It does not check X for 
being too large for a field of width WIDTH. A good fixup would be to return part of X in 
scientific notation if it is too large for the field. This improvement is left as an exercise. 

Exercises 

8.4A Which of the following expressions are legal character subscripts? Which are legal 
vector subscripts? (Assume all variables are of integer type.) 

a) (4) 

b) (1+1) 

c) (7 AT 3) 

d) (2 TO 1-2) 

e) (6 AT I+J) 
1 f) (I TO J) 

g) (K TO K-l) 

8.4B What will the output be from the following program? 

PROG_B: PROGRAM; 

DECLARE CH CHARACTER(15) INITIAL('ABC'); 

REPLACE PRINT BY "WRITE(6)" ; 

PRINT CH, CH I ICH; 

CH = '123' I ICHI l'456'; 

PRINT CH$(1 TO 5), CH$(5 TO #); 

CH = CH$(1 TO 2) I ICH$(3 AT #-5); 

PRINT CH, CH(#-2 TO #); 
CLOSE PROB^B; 
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5.4C Given the following declarations and assignments, which of the following compari- 
sons are true? Assume that 'A' < 'B' < . . . < 'Z'. 

DECLARE CI 5. CHARACTERS) 
DECLARE CHARACTER! 1) 
CI 1, C12; 



C15 


= 


'A'; 


Cll 


= 


'A*; 


C12 


= 


'B'; 



a) 'A' = Cll 

b) CI 5 = 'A' 

c) CI 5 = Cll 

d) C15 1 = C12 

e) 'A' < C12 

f) 'A' < 'AB' 

g) Cll < 'AB' 

h) C15 < Cll CAT C12 



8.5 OTHER HAL/S I/O CONSTRUCTS 



The READ and WRITE statements already described allow data to be transferred 
between a HAL/S program and a sequential character oriented file. The data is always 
transferred in a standard format according to its type, though I/O control functions alio* 
arbitrary positioning of the data. Since character operations allow output reformatting, the 
addition of an unformatted read (READALL) gives the programmer complete control 
over sequential character files. 

HAL/S also supports random-access files, which do not necessarily contain charac- 
ter data, via the FILE statement, and provides some features which aid in transferring data 
to and from special purpose sensors and effectors. 
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8.5.1 The READALL Statement 

One example of the READALL statement, 

DECLARE C CHARACTER(80); 
READALL(5) C; 

was used in the previous section. Aside from the READALL keyword, the format of this 
statement is exactly that of the READ statement, although a restriction is made that all var- 
iables be of character type. 

The READALL statement can input up to one line of characters from a HAL/S channel; 
the characters read are placed directly in the character variable or variables without any 
special interpretation of the delimiters blank, comma, and semicolon. Characters are trans- 
ferred until either all of the variables have been filled to their declared maximum lengths, or 
the entire line has been read, whichever comes first. Unless the READALL statement begins 
with I/O control functions (e.g. SKIP, LINE) the device mechanism is advanced to the be- 
ginning of a new line before the first character is transferred. 

When a list of variables or a character array is specified, each variable or element is filled 
in turn. There is no automatic movement of the device mechanism between variables. This 
allows a line of data to be broken into fields; a card could be read as eight 10-character 
fields by: 

DECLARE CARD ARRAY(8) CHARACTER(IO); 
READALL(5) CARD; 

I/O control functions may also be used with READALL. Using the declaration above, 
just the first and last fields could be read by: 

READALL(5) CARDS(1:), COLUMN(71), CARD$(8:); 

READALL uses the same set of channels as READ and WRITE. Input and output 
should not be mixed on the same channel, but READ and READALL may both be used 
on the same input file or even the same card as in the following example: 
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OUTER: 

program; 

declare scalar, 

phi, alpha; 
declare initial posn vector double! 
declare mode integer , 
print boolean! 



INITIALIZE: 
PROCEDURE; 

DECLAPE V NAME CHARACTERS); 
REFLACE INFILE BY "5"; 
DO WHILE TRUE; 

READALLIIIIFILE) VNAME; 
VNtME = TRIM I VNAME); 



IF VNAME = 

IF VNAME = 

IF VNAME = 

IF VNAME = 

IF VNAME = 

IF VNAME = 

end; 

if print then 



WRITE! 6) PHI, ALPHA, 
CLOSE INITIALIZE! 



PHI; 

alpha; 



'PHI' THEN READ(INFILE) SKIP(O), C0LUMNI9) 

•ALFHA' THEN READ(INFILE) SKIP(O), COLUMNL9 

•I_POSH' THEN READ! INFILE) SKIPCO), C0LUMNL9), INITIAL POSNI 

'MODE' THEN READ(INFILE) SKIP(O), COLUMNL9), MODE; 

•PRINT' THEN READ(INFILE) SLIP (0), COLUMNL9), PRINT; 

'END' THEN EXIT; 



INITIAL POSN, MODE! 



CLOSE OUTER; 



The INITIALIZE procedure above could be used to read initial values for a simulation 
run. The input lines would consist of a variable name in the first eight columns followed by 
an initial value in the standard external format for that data type; e.g. 



PHI 


,00137 1 


PRINT 


'V I 


I_POSN 


1, 1, 1 I 


END 


/ 



This type of initialization module takes little memory and is fairly efficient if there are 
not too many variables. Its main advantage is that it is very easy to code, particularly if a 
parameterized REPLACE macro is used to abbreviate the repeated code: 
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REPLACE TEST(ID, VAR) BY " 
IF VNAME = ID THEN READ(5) 
SKIP(O), COLUMN(9), VAR"; 



TEST('ALPHA', ALPHA); 
TEST(T_POSN', INITIAL_POSN); 

etc. 

Exercises 
8.5.1A What HAL/S data types may be read using the READALL statement? 

8 5 IB How are character strings suitable for input via the READALL statement different 
from those suitable for input via the READ statement? 

8.5.2 The FILE Statement 

The FILE statement is used to read and write random access files. These files (which are 
numbered sepaately from channels) are organized into records which may be accessed in 
™ seTuenc" Gene'rally speaking, any record may be read or written in the same amount 
of time as any other (hence the term "random access' ). 

The FILE statement has two forms: 

FILE(number, address)= expression; 

and 

variable = FILE(number, address); 

The construct FILE(number, address) is called a file expression. When the file expression is 
Ised TZ left of the equals sign (the output file statement, «^ * £*£T th 
written to the record specified by "address" on the file specified by number . When me 
file expression is used o'n the right hand side (the input file statement), the record denoted 
by the file expression is read into "variable' . 

The FILE statement is highly implementation-dependent; the appropriate User's Manual 
should be consulted before it is used. 

The "number" and "address" operands of the file expression may be any integer or 
scalar arithmetic expression. "Number" must be computable at compile-time. If the e X - 
predion !s scalar, it will be rounded to the nearest integer. The legitimate ranges of these 
integers are implementation dependent. 

There are no restrictions on "expression" in the output file statement. All of the fol- 
lowing statements are legal: 
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DECLARE MATRIX(10,10), Ml, M2; 
DECLARE A ARRAY(99) INTEGER; 
DECLARE C CHARACTER(20); 
DECLARE I INTEGER INITIAL(17); 
REPLACE HIST BY "5"; 
FILE(HIST, 12) = Ml; 
FILE(5, 1+1) = Ml + M2**T; 
FILE(HIST,8) = Ml $(2 TO 7,*); 
FILE(HIST,9) = A+l; 
FILE(HIST,10) = C || I; 

There are, however, some restrictions on "variable" in the input file statement. These 
are the same restrictions that apply to assign parameters of procedures. "Variable" must 
be one of the following: 

1 . An unsubscripted variable. 

2. An entire array element. 

3. A contiguous partition of a single vector or matrix. 

The following input file statements are all legal: 

Ml = FILE(HIST,2); 
C = FILE(3,3); 
A$l = FILE(4,4); 
M1S(1,*) = FILE(5,6); 

It is not possible to read into a non-contiguous partition of a MATRIX (Ml$(*,l)) or an 
array partition (A$(5 TO 1 0)) or a partition of a character string (C$(3 TO #)). 

Both versions of the file statement cause the transfer of unformatted binary data. Thus, 
if the file statements are to be used reliably, a record should always be read into a variable 
of the same type and organization as the expression that was written. Since the compiler 
cannot know how a file was originally written, it is up to the programmer to ensure 
compatability. 

8.5.3 Avionics I/O 

HAL/S does not include any specific avionics I/O statements, principally due to the fact 
that there is currently no standardization of airborne I/O systems. Some flight computers 
have one or more independent I/O processors or channels with their own unique instruction 
sets. Other computers either have CPU instructions for I/O or have a section of memory 
that is "hard wired" to external devices (e.g. storing into location 5432 [octal] might lower 
the landing gear). 

Operating systems also vary widely in this regard. In some systems I/O is requested by 
application programs, while in others it is all done "automatically" on a periodic basis. 
Finally, every system will have a different complement of sensors, displays, effectors, etc., 
each of which may have its own unique formatting and protocol requirements. 
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Although there is presently no way to implement generalized avionics I/O as a HAL/S 
statement, the language does provide a number of features that allow individual systems to 
be tailored: 

1. Structure (Chapter 9) and compool (Chapter 11) templates allow a section of 
memory to be mapped into a collection of variables of assorted types. 

2. Procedures and functions can be coded in assembly language and interfaced to a 
HAL/S-program (see Chapter 1 1). 

3. Bit strings (Chapter 13) allow low-level formatting via subscripting and logical 
operators (AND, NOT, etc.). 

4. I/O errors may be handled via the ON ERROR statement described in Chapter 10. 

5. Event variables (Chapter 12) allows waiting for I/O completion, and may trigger 
transactions when signalled. 

6. Each implementation defines a set of %macros which allow pre-defined machine 
instruction sequences to be omitted. 

The following code illustrates some of the ways that I/O might be performed in alter- 
nate systems: 



ASSCRTEDIO: 
FRCSSAM; 

REPLACE GEARDCL'N BY "INTEGER(CCT'5<i32 • )"; 

DECLARE DO_NAV_READ EVENT; 

DECLARE MEM KA^E ARRAY(32767) BITU6) INITIAL! NAME! NULL) ) ; 

STRUCTURE ICPARM: 

1 DEVICE INTEGER, 

1 STATUS BIT! IS!, 

1 EUFFER NAKS ARRAY(IO) INTEGER, 

1 UCRDS INTEGER; 
DECLARE R:DSEN5CRS IOPARM-STRUCTURE INITIAL! 16 > HEX'O", NULL, 27); 
DECLARE 10 PROCEDURE NCNHAL(l); 
REPLACE CPSYS BY "1"; 
CD CASE OPSYS; 

/SVC! 9); /*PERCENT MACRO*/ 

+ 

CALL IO(FNDSENSOSS); /^ASSEMBLY LANGUAGE*/ 

KErt = on; 
GEARDCHN: 

SIGNAL D0_NAV_READ; /*EVENT VARIABLE*/ 

; /*no-op*/ 

end; 
close assortedio; 



This program only indicates a few alternatives; there are many other possibilities. 
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End Of Chapter Problems 

8 A Write a HAL/S program that will read, from channel 5, 2 arrays of character strings 
(5 elements per array, maximum 5 characters per string), remove leading and trailing 
blanks from each string, reverse each string, and write the results on channel 6 in the 
form: 



Column 5 



Column 1 5 



CHAR_AKRlj. 
CHAR ARRK. 



CHAR_ARR2j 
CHAR_ARR2n 



CHAR_ARRi 5 . 



CHAR_ARR2 5 . 



8B Write a HAL/S program to perform the following task: 

Input on channel 5 contains the names of 50 people, each consisting of a first name, 
one blank, and a last name. Names are separated by commas, the maximum length 
of any name is 25 characters, and there are no blanks in the input except those fol- 
lowing the last comma in a line (no name is broken across two lines). The final 
name is not followed by a comma. 

The program should read in all 50 names into an array, and write on channel 6 all 
names whose last name begins with 'S'. 

An example of possible program input is: 

SAMUEL COLERIDGE .CHARLES BAVOELAIRE.EMMY NOETHER, 
WILLIAM SHAKESPEARE,TYCHO BRAHE.DAVID HILBERT, etc. 

Use the INDEX built-in function described in Appendix A. 

8C Write a HAL/S program that will read from channel 5 a 1- to 3- digit integer, and 
write on channel 6 the English equivalent, e.g., 



173 -» ONE HUNDRED SEVENTY-THREE 
-> ZERO 
15 -* FIFTEEN 



etc. 
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9.0 STRUCTURES 

HAL/S structures provide a means of collecting a group of variables under a single name. 
This grouping capability has a number of uses, one of which is illustrated below. Suppose a 
utility function which requires many parameters is defined at the outer level of a program 
and invoked from lower level code as shown below: 



n 


OUTER: 


n 


program; 


n 


DECLARE SCALAR, 


n 


Gl, G2; 


n 


UTIL: 


n 


FUNCTION! A, B, C, D. E) VECTOR; 


n 


DECLARE A VECTOR; 


M 


DECLARE SCALAR, 


M 


B, d; 


(1 


DECLARE C INTEGER, 


M 


E boolean; 


C 




C 




C 




E 


_ 


M 


RETURN A; 


M 


CLOSE UTIL; 


H 


NESTED: 


n 


procedure; 


c 


A PROCEDURE WHICH INVOKES UTIL 


M 


DECLARE RESULT VECTOR; 


M 


DECLARE V VECTOR INITIALIO, 1, 0); 


(1 


DECLARE SCALAR, 


n 


SI, S2; 


M 


DECLARE C INTEGER INITIAU83), 


M 


E BOOLEAN INITIAL! OFF I ; 


C 




C 




c 




M 


SI = Gl / 3! 


M 


S2 = SINIG1 ♦ G2>; 


E 


- 


M 


RESULT = UTIL(V, SI, C. S2, E); 


C 




C 




C 




M 


CLOSE nested; 


C 





It is advantageous to keep the actual arguments passed to UTIL (i.e. V, SI, S2, etc.) 
declared at the lowest possible level because of the protection afforded by scoping rules, and 
to show that these variables "belong" with the NESTED code block. On the other hand, 
some inefficiency results from passing all five parameters separately. The code in the next 
figure shows how structures can be used to reduce the number of UTIL parameters to one. 
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res 






M 
M 
M 
M 

n 
n 
M 
M 
M 
M 
M 
M 
M 


OUTER: 

frogram; 

declare scalar, 

Gl, gs; 
STPUCTURE UTIL_PARM: 
1 V VECTOR, 
1 SI SCALAR, 
1 C INTEGER, 
1 S2 SCALAR, 

1 E boolean; 

UTIL: 

FUHCTIONCX) VECTOR! 

DECLARE X UTIl_PARM-STRUCTURE; 






C 

c 
c 








E 
H 
M 
M 
M 
M 
M 


RETURN X.V; 
CLOSE util; 
NESTED: 

procedure; 

declare result vector; 

declare local util_parm-structure initiauo, a, 0, 0, 83, 0, off); 


C 


NOTE THAT THE TEHPLATE IS NOT REPEATED 






M 


LOCAL. SI = Gl / 3; 
LOCAL. S2 = SINCG1 + G2>; 






C 
C 
C 








E 
H 


+ 
RESULT = UTIL( LOCAL); 






C 
C 
C 








M 


CLOSE NESTED; 






C 
C 
C 








M 


CLOSE outer; 







Several new language constructs are used in this example. First is the statement begin- 
ning with "STRUCTURE UTIL_PARM:". This statement creates a structure template 
named UTIL_PARM which defines the layout of the UTIL_PARM-STRUCTUREs declared 
later. In addition to structure declaration and initialization, the example shows references 
to the components of a structure, structure terminals, such as "LOCAL.S1" and an entire 
structure, LOCAL. 



The next section describes all of the constructs used in the example, although some of 
the more complex forms are deferred to the end of the chapter. 
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9.1 DECLARING AND REFERENCING STRUCTURES 

In the statement: 

DECLARE LOCAL UTILJ> ARM-STRUCTURE 1NITIAL(0,1,0,0,83,0,OFF); 

the phrase "UTIL_PARM-STRUCTURE" takes the position usually occupied by a data 
type This is actually consistent syntax because X-STRUCTURE, where X is a template 
name, is a data type. Hence, a template name with the word STRUCTURE attached by a 
hyphen can be used in most of the constructs from previous chapters which require a data 
type or "type specification". Examples include factored declare statements such as: 

DECLARE UTIL_PARM-STRUCTURE, 
LOCAL, 
X, 

Y INITIALd, 2,3,4,5 ,6,TRUE), 
ZERO CONSTANTS ,0 ,0,0, 0,0,OFF); 

and function type specification, as in: 

SHAPE: FUNCTION(A,B,C,D) UTIL__PARM-STRUCTURE; 

It is important to note that STRUCTURE by itself is not a data type: The type of a 
structure is entirely defined by the layout of its template. From this rule, and the descrip- 
tion of parameter passage in Chapter Seven it follows that when a structure is passed to a 
procedure or function, the template of the actual argument passed must be identical to the 
template of the formal parameter. 

The conditions under which two templates are identical for purposes of data type 
matching (in parameter passage, assignments, etc.) will be discussed in Section 9.2. However, 
the easiest way of assuring that two structures are of the same data type is to use the same 
template in their declarations. In the example, the STRUCTURE statement which defines 
the UTIL_PARM template is part of the program level declare group. It can be used in the 
declarations of X and LOCAL in nested routines because the scoping rules for structure tem- 
plates are the same as for declared variables. Thus, a template defined at the program level is 
global and may be used in declarations anywhere in the program. 

In addition to parameter passage, entire structures may be used in assignment statements 
and in the various I/O statements. For example, a set of ten test cases could be run through 
the UTIL function by executing the following code: 
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OUTER : 
FR03KAM; 

DECLARE SCALAR, 

Gl, G2; 
STRUCTURE UTIL_PARM: 
1 V VECTOR, 
1 SI SCALAR, 
1 C INTEGER, 
1 SS SCALAR, 
1 E BOOLEAN; 
DECLARE ARG UTIL PARtt-STRUCTURE ; 
UTIL: 
FUNCTION! X) VECTOR; 

DECLARE X UTIL_PARM-STRUCTUHE i 



RETURN X.V; 
CLOSE UTIL; 

DO FOR TEMPORARY I = 1 TO 10; 



READ(5) ARG! 



WRITE(6) 'UTIL OF' , ARG, 



END; 
CLOSE OUTER; 



The statement "READ(5) ARG;" is functionally equivalent to: 

READ(5) ARG.V, ARG.S1, ARG.C, ARG.S2, ARG.E; 

In other words, the components of the structure are read in the "natural sequence", which 
is the order in which they appear in the structure template. The components are output in 
this same sequence when ARG appears in a WRITE statement. 



The Structure Template 9-5 



Similarly, given: 

DECLARE UTIL^PARM-STRUCTURE, A, B; 

the statement: 

A = B: 

is equivalent to the sequence: 

A.V = B.V; 
A.S1 = B.S1; 
A.C = B.C; 
A.S2 = B.S2; 
A.E = B.E; 



Structure components, such as LOCAL.V and A.S1, follow exactly the same rules as 
simple variables of the corresponding data type. No restrictions whatsoever are imposed on a 
structure component that would not also apply to a simple variable of that type. Thus, the 
vector component, V, of a UTIL_PARM-STRUCTURE, A, can be subscripted, 

A.V$1 = A.VS2; 
used in a comparison, 

DO UNTIL A.V$(2 AT 1) = 0;, 
passed to a built-in function, 

A.S1 = ABVAL(A.V); 

read written or filed, or used in any other construct in which a vector is allowed. Further- 
more, there is no additional runtime overhead (either time or space) involved in referencing 
a component of a structure rather than a simple variable. 

Structure initialization is essentially the same as array initialization: the initial list con- 
sists of a value or set of values for each component of the structure, separated by commas. 
The CONSTANT attribute is also acceptable. There is no way to write a structure literal, but 
the CONSTANT attribute may be used to obtain the same effect. For example, a convenient 
way of setting all of the components of a structure to zero is: 

DECLARE UTIL^PARMS-STRUCTURE, 
A, 

B, 

ZERO CONSTANT(0,0,0,0,0,0,OFF); 

A = ZERO; 
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In addition to assignment statements, parameter passage, and I/O statements, compari- 
son of entire structures is permitted. As was the case with arrays, the only comparisons that 
can be made between structure operands are equal (=) and not equal 0=). 

In this section we have discussed all of the ways that entire structures can be used in 
executable statements and made the assertion that components of a structure may be used 
in any way that simple variables of the same types can be used. We have discussed declara- 
tion and initialization of structures using the template names as a data type. All of the ex- 
amples have used the same template (UTIL_PARM), but the rules for creating templates 
have been omitted and the naming of structure components has only been implied by exam- 
ple. In Section 9.2 we will clear up these points and show additional examples of the use of 
structures. This chapter concludes with the presentation of two additional attributes: "Copi- 
ness", which is analogous to arrayness of other data types, and unqualified structures, which 
are easier to reference but more limited in capability. 

9.2 THE STRUCTURE TEMPLATE 

A structure template describes the layout of a structure in terms of the order and data 
types of its components. A structure template is created via the STRUCTURE statement. 
This statement begins with the word STRUCTURE followed by the name of the template 
being defined and a colon. The remainder of the statement is a list of component descrip- 
tions separated by commas. Each component is described by a level number, a name, and a 
data type. The statement below creates a template named SUPER_VECTOR which has 
three components: 

STRUCTURE SUPER_ VECTOR: 
1 V VECTOR, 
1 STATUS BOOLEAN, 
1 TIMETAG SCALAR; 

The phrase "1 V VECTOR" defines a component named V of type VECTOR at level one. 
These level numbers require some explanation, but first we will state the rules about names 
and data types: 

1) The name of a structure component may be any valid HAL/S identifier. 

2) The names of structure components need not be unique, provided they can be un- 
ambiguously referenced (i.e. structures A and B may both have a component named 
X since they can be distinguished by referencing A.X and B.X). 

3) The components of a structure may be of any data type. They may be of single or 
double precision and they may be arrayed. 

Since SUPER_VECTOR-STRUCTURE is a data type by the definition in this chapter, 
rule three above makes the following template legal: 

STRUCTURE STATEVEC: 

1 POSITION SUPER^VECTOR-STRUCTURE, 
1 VELOCITY SUPER_VECTOR-STRUCTURE, 
1 ACCEL SUPER_ VECTOR-STRUCTURE; 
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Given the following structure declaration: 

DECLARE STATE STATEVEC-STRUCTURE; 

how are the low-level components referenced? The answer follows from the information al- 
ready presented: Since the V component of POSITION is named "POSITION.V", the POSI- 
TIONS component of STATE may be referenced as "STATE.POSITION.V". This process 
may be carried to any level. Given, 

STRUCTURE S2: 

1 STATE STATEVEC-STRUCTURE, 

1 ATTITUDE„INFO ARRAY(3) VECTOR DOUBLE; 
DECLARE STATE2 S2-STRUCTURE; 

the components are named: 

STATE2.STATE.POSITION.V, 
STATE2.STATE.POSITION.STATUS, 



STATE2.STATE.ACCEL.TIMETAG, 
STATE2.ATTITUDE.INFO$(l:), 

and sa forth. The components listed above are called structure terminals. A structure termi- 
nal is any component of a structure which itself is not a structure. Structure components 
which are also structures are termed structure nodes; this terminology stems from viewing a 
structure as an inverted tree, as shown below: 




J^rx rCm^, ^^ 

hi l P^l M I STATUS TIME_ IVl STATUS TIME ' 

l-LI STATUS TAG L * J TAG L^- 1 TAG 
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In this diagram, rounded boxes are used to represent nodes, or forks in the tree, 
square boxes represent structure terminals which are the leaves of the tree. 



The 



In Section 9. 1 it was stated that a component of a structure may be used in any context 
in which a simple variable of the same type can be used. This statement applies to both 
structure terminals and to entire nodes of a structure. Since the nodes STATE2 STATE PO- 
SITION and STATE2.STATE.ACCEL are of type SUPER„VECTOR-STRUCTURE, they 
may be read, written, filed, assigned to each other, compared, or passed as parameters to a 
procedure or function which expects a SUPER VECTOR-STRUCTURE as an argument. 
Thus, these components of STATE2.STATE might be manipulated as shown below: 



P: 
FROSRAM; 

STRUCTURE SUPER_VECTDR: 

1 V VECTOR, 

1 STATUS BOOLEAN, 

1 TIMETAS SCALAR; 
STRUCTURE STATEVEC: 

1 POSITION SUFER VECTOR-STRUCTURE, 

1 VELOCITY SUFER VECTOR-STRUCTURE, 

1 ACCEL SUPER VECTOR-STRUCTURE; 
DECLARE STATE STATEVEC-STRUCTURE; 
STRUCTURE SS = 

1 STATE STATEVEC-STRUCTUPE, 

1 ATTITU0E_INFO ARRAY! 31 VECTOR DOUBLE; 
DECLARE STATES S2-STRUCTUPE; 
REPLACE TEST_OATA BV "I"; 
DECLARE CYCLE INTEGER INITIALiOl; 
DECLARE DELTA_T CONSTANT! 1 / 10 1; 

STATES. STATE. ACCEL = READ_ACCI 171 ; 

ASSUME THAT 17 SELECTS THE CORRECT ACCELEROMETER 

CALL INTEGRATE! STATES . STATE .ACCEL ) ASSIGN! STATES .STATE .VELOCITY ) ; 

+ t 

r tr l" c I - T !' 5 ! 4TE ' STATE2 • ST * T E ■ VELOCITY I ASSIGN! STATES . STATE .POSITION 1 1 

file(test_data, cycle) = states. state; 
integrate: 
procedureiinput) assign! output i ; 

declare supep_vector-structure, 
input, output; 

if input. status = false then 
do; 

output. status = false; 

RETURN; 
END; 
OUTPUT. TINETAG = INPUT. TIHETAG; 

OUTPUT. V = OUTPUT. V + INPUT. V DELTA T; 
CLOSE INTEGRATE; 
CLOSE P; 



/»TIME BETWEEN SAMPLES*/ 



/•SAVE FOR POST PROCESSING*/ 
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An alternate way of coding the S2 template used in declaring STATE2 appears in the 
following figure. This example should make the use of level numbers clear: level numbers 
provide the capability of creating nodes in a template without referencing other templates. 
No change whatsoever would be required to the previous program if this S2 template was 
substituted for the earlier formulation. 



H 


p: 




M 


PROGRAM 




M 


STRUCTURE SUPER_VECTOR : 


M 


1 


V VECTOR, 


H 


1 


STATUS BOOLEAN, 


M 


1 


TINETAG SCALAR! 


M 


STRUCTURE S2: 


M 


1 


STATE, 


(1 




Z FOSITION, 


M 




3 V VECTOR, 


M 




3 STATUS BOOLEAN, 


M 




3 TIMETAG SCALAR, 


M 




Z VELOCITY, 


M 




3 V VECTOR, 


M 




3 STATUS E 00 LEAN, 


M 




3 TIMETAG SCALAR, 


M 




Z ACCEL SUPER_VECTOR-STRUCTURE, 


M 


1 


ATTITUDE INFO ARRAY! 3) VECTOR DOUBLE; 


H 


CLOSE P 





By referring back to the tree diagram of the STATE2 structure, it can be seen that the 
level numbers represent the distances between the top of the structure and each component. 
Another illustration of this correspondence appears below: 



CTURE X: 


Level 






X 




A, 
2 B INTEGER, 


1 




(aY 




^UD 


2 C, 

3 D INTEGER, 


2 


Ljl 




J^X 




3 E INTEGER, 


3 




[d| 




lU 


F INTEGER; 







In these examples, the structure templates have been indented to show the contents of 
each node. This indenting is supplied by the compiler based on the level numbers. Since the 
HAL/S language is written in free format, the number of blanks coded on source cards is 
irrelevant. Hence, the previous example could also be written as: 

STRUCTURE X:l A, 2 B INTEGER, 2 

C, 3 D INTEGER, 3 E INTEGER, 1 F INTEGER; 

and the same output listing would result. 
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Coding structure templates in the above form is not recommended, however. Properly in- 
dented source code generally makes desk checking and subsequent modification much 



Exercises 

9.2A Write structure templates for the following trees: 
X 





where : 



CI , El are 3-vectors; 

D2, Fl are 3x3 matrices; 

D2, E2 are arrays of length 5 of 3-vectors; 

All other terminals are scalar. 



9.2B 
a) 



For the following sequence of structure templates and the single declaration below, 
draw the tree for the declared structure TEST_DATA. 

STRUCTURE X: 
1 A INTEGER, 
1 B, 

2 VI VECTOR, 
2 V2 VECTOR; 
STRUCTURE Y: 
1 A, 

2 B INTEGER, 
2 VI VECTOR, 
1 C SCALAR; 
STRUCTURE DATA: 
1 L, 

2 M X-STRUCTURE, 
2 N Y-STRUCTURE, 
1 I, 

2 J X-STRUCTURE, 
2 K Y-STRUCTURE; 
DECLARE TEST DATA DATA-STRUCTURE; 
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b) Write, in the natural sequence, the expressions used to reference each terminal of 
TEST^DATA. 

c) Write an alternate structure template for DATA that allows the terminals to be ref- 
erenced exactly as in part (b), but does not use structures X and Y, 

d) Call the structure template of part (c) DATA_PRIME, and make the following 
declarations: 

DECLARE STRUC1 DATA-STRUCTURE, 

STRUC2 DATA^PRIME-STRUCTURE; 

Which of these assignments are legal: 

1) STRUC1.L.M.A = STRUC2.L.M.A; 

2) STRUC1 = STRUC2; 

3) STRUC1.I.K = STRUC2.1.K; 

4) STRUC1.L.M = STRUC2.I.J; 

5) STRUC2.L = STRUC2.I; 

9 2C Rewrite the following segment of HAL/'S code, using structures to eliminate the DO 
FOR loop. How must the procedure PROCESS be changed to allow this? Be sure the 
data can be read in the same order as before. 

DECLARE VEC_ARR ARRAY(5) VECTOR; 
DECLARE TIM_ARR ARRAY(5) SCALAR; 
DO FOR I = 1 TO 5; 

READ(5) VEC_ARR$(I:),TIM_ARR$I; 

END; 

CALL PROCESS(VEC_ARR,TIM_ARR); 

9.2.1 Template Matching 

Throughout this chapter, the data type of a structure has been named by referring to the 
template used in its declaration. The statement has been made that two structures are of the 
same data type if their templates are identical. For the purpose of matching data types, two 
structure templates are identical if and only if the order and data types of all of their com- 
ponents are exactly the same. For structure terminals, all of the attributes including preci- 
sion and arrayness must match. The term "components" used above also includes structure 
nodes; two nodes are of the same type if and only if their components are of the same data 
types and in the same order. 
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This rule can be stated in two different ways: 

1) Two structure templates are identical if and only if the order, data types, and 
hierarchical arrangement of their terminals are the same. 

2) Two structure templates are identical if the only differences between them are the 
names of terminals and nodes. 

Most of the information about structures has already been presented. We have seen how 
to declare and reference structures and their components, and how to code structure tem- 
plates. The use of structures to group data for parameter passage, assignment as a block, and 
the simplification of I/O statements has been illustrated. Subsequent sections will add a few 
more capabilities to structure declaration and referencing by building on the basic concepts 
of templates, nodes, terminals, and user-defined data types presented here. 

9.3 MULTI-COPIED STRUCTURES 

Multi-copied structures provide a capability similar to arrays of simpler data-types. The 
uses of structure copiness are much the same as the uses of arrayness described in Chapter 
Six. If several structures are to be processed identically, it is convenient to reference them 
by number within a loop. An example of this usage is described below. 

The SUPERVECTOR template from Section 9. 1 (repeated below) might be used to 
contain sensed velocity data from an inertial measurement unit. Since these devices are 
usually redundant, it is useful to define a multi-copied SUPER_VECTOR to contain the 
data. The following figure shows how such an entity can be declared and referenced. 



EXAMPLE_N: 
PROGRAM ; 

STRUCTURE SUPER_VECTOR: 
1 V VECTOR, 
1 STATUS BOOLEAN, 
1 TIHETAG SCALAR; 
DECLARE VEL SUPER VECTOR-STRUCTURE* 3) ; 
DECLARE EEST INTEGER; 
DO FOR TEMPORARY I = 1 TO 3; 
+ 
CALL REA0_IMUU> ASSIGN! VEL ); 
I! 



CALL SELECT_BEST({VEL}) ASSIGN! BEST) ; 



CALL GUIDANCEtVEL ); 
BEST! 



CALL OTHER_SN(VEL ); 
BEST; 
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SELECT_BEST: 

PROCEDURES) ASSIGN! SELECTED I ; 

DECLARE V SUPER_VECTOR-STRUCTURE( 3) , 

SELECTED INTEGER; 
DECLARE H INTEGER; 

DECLARE MOST_RECENT SCALAR IHITIALIO) AUTOMATIC; 
DO FCR N = 1 TO 3; 



IF 



V. STATUS = OFF THEN 
N; 



repeat; 
if v.timetag > most_recent then 

N; 



do; 



SELECTED = N; 
MDST_RECENT = V.TIMETAG 



n; 



end; 

END; 

IF MOST_PECENT = THEN 
SELECTED = 1! 
CLOSE SELECT_BEST; 
GUIDANCE : 
FRCCECURE! BEST_VEL ) ; 

DECLARE BEST_VEL SUPER VECTOR-STRUCTURE; 



CLOSE GUIDANCE; 
OTHER_SW: 
PROCEDURE! V); 

DECLARE V SUPER VECTOR-STRUCTURE; 



CLOSE OTHER SW; 
READ_IMU: 

PROCEDURE! UNIT.HUM) ASSIGN! STRUC ) ; 
DECLARE L'Nlfj.TJM INTEGER, 

STRUC SUPER VECTOR-STRUCTURE; 



/*ALL EQUALLY BAD»/ 



CLOSE READ_IMU; 
CLOSE EXAWLE N; 
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Several points are illustrated by this example. First, a multi-copied structure is created 
simply by appending a copiness specifier to the structure declaration. The copiness specifier 
is a parenthesized integer which immediately follows the word STRUCTURE. As with 
VECTOR or ARRAY dimensions, the number of copies may be specified by any arithmetic 
expression which can be computed at compile time*. 

The next new construct in the example appears in the statement: 

CALL READ IMU(I) ASSIGN(VEL$(I;) ); 

This statement is intended to obtain the Ith copy of [VEL] from an external device. 
VEL$(I;) is a SUPER ^VECTOR-STRUCTURE with no copiness; the fact that it is con- 
tained in a multi-copied structure does not by itself impose any restrictions on its use. The 
semicolon in the subscript separates structure subscripts from the other types of subscripts 
for the same reason that the colon is used to set off array from component subscripts. Struc- 
ture subscripts may of course be combined with the other types: for instance, the second 
component of V within the third copy of VEL can be referenced as VEL.V$(3;2). Some of 
the many combinations are illustrated below. Given, 

STRUCTURE X: 

1 M ARRAY(IO) MATRIX, 

1 I ARRAY(3,2) INTEGER; 
DECLARE BIG X-STRUCTURE(IOO); 

the very first scalar component is: 

BIG.M$(1;1:1,1) 
and the last scalar is: 

BIG.M$(100;10:3,3). 
The first four integers are : 

BIG.IS(1;1 TO 2,*), 
which is a two-by-two integer array. 

BIG.M$(I;*:1,*) 

is an array of ten 3-vectors composed of the first rows of all the matrices in the first copy of 
BIG. 



There is also an equivalent to ARRAY(*) which will be described later. 
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Partitions are also allowed in structure subscripts; the statement: 

BIGS (1 TO 50;) = BIG$(5 1 TO #;); 

would set the first fifty copies of BIG to the values contained in the last fifty. 

The data type of BIG$(1 TO 50;) is "multi-copied X-structure". When the structure sub- 
script is applied to a terminal (e.g. BIG. I), the result is no longer a structure. In this case, the 
copiness is converted to arrayness. BIG.M$(1 TO 50;) behaves like a 50 x 10 array of matri- 
ces. Likewise, BIG.I$(1 TO 50;1,1) behaves like an ARRAY(50) INTEGER even though all 
of the actual arrayness was subscripted away. With respect to terminals (but not nodes), 
arrayness and copiness are interchangeable. 

Returning to the original example in which VEL was declared as a three-copied 
SUPER VECTOR structure, we can see how the conversion to arrayness is used. The fol- 
lowing are arrayed statements which function exactly as described in Section 6.2. 

[VEL.STATUS] = ON; /*set all three status booleans to TRUE*/ 

MOST RECENT = MAX([VEL.TIMETAG] ); 
AVG_Z_COMPONENT = SUM(VEL.V$(*;3))/3; 
AVG_Y_COMPONENT = SUM(VEL.V$(*;2))/3; 
VEL.V = VECTOR(l,l,l); 

In many ways, multi-copied structures are like arrays of other data types. We have al- 
ready seen that subscripting is essentially the same except for the use of a semicolon instead 
of a colon, and that terminals of multi-copied structures can participate in arrayed state- 
ments. One copy of a multi-copied structure may be used in any context where a simple 
variable of the same structure type can be used ; this rule is also the same as stated previ- 
ously for arrays and their elements. This section has also shown that the uses of copiness are 
roughly the same as the uses of arrayness: identical operations on similar data, saving a set 
of structures in a list, and maintaining tables. 

Another way in which multi-copied structures resemble arrays is in initialization. A 
multi-copied structure can be initialized by listing the initial values for each copy separated 
by commas, as shown: 

STRUCTURE MONTH: 

1 NAMEOF CHARACTER^), 

1 DAYS INTEGER, 

1 COLD BOOLEAN; 
DECLARE YEAR MONTH-STRUCTURE(12) INITIAL('JAN\ 31, TRUE, 'FEB', 
28, TRUE, 'MARCH', 31, TRUE, 'APRIL', 30, FALSE, *); 

Here, the asterisk (*) is used to indicate that only part of the structure is to be initialized. 
The initial values of copies five through twelve are indeterminate. The use of a multi-copied 
structure for this type of diverse table instead of a set of parallel arrays (shown below) is 
largely a matter of style. The referencing of entries is about equally convenient, but the 
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initial list groups all of the information about each entry in the case of a structure whereas 
the information for arrays must be grouped by type as shown in the alternative below: 

DECLARE NAMEOF ARRAY(12) CHARACTER^) INITIAL('JAN\ 'FEB', 
'MARCH', 'APRIL', *); 

DECLARE DAYS ARRAY(12) INTEGER INITIALS 1, 28, 31, 30, *); 

DECLARE COLD ARRAY(12) BOOLEAN CONSTANT(TRUE, TRUE, TRUE, 
PAUSE, *); 

Finally, procedures may be written to accept a structure with a variable number of 
copies. The syntax is the same as for arrays, as shown below, which is a re-work of the 
example before. 



example_n: 
frojram; 

stpucture supe3_vect0r: 

1 V VECTOR, 
1 STATUS BOOLEAN, 
1 TIHETAG SCAUP! 
DECLARE v'EL SJPtR_VECTOB-STRUCTURE( 3 ) ; 
DECLARE BEST INTEGER; 
DO FOR TEMPORARY I = 1 TO 3; 
+ 
CALL READ_IHU(I) ASSIGNIVEL )i 
Ii 



CALL SELECT_BEST({VEL} ) ASSIGWBEST I ; 



CALL GUIDANCE! VEL ): 

BEST; 



CALL OTHER_SWIVEL ); 

BEST; 



SELECT_BEST: 

PRCCEDUREIV) ASSIGN! SEL ECTED ) ; 

DECLARE V SUPER_VECTOR-STHUCTURE<*> ; 

DECLARE SELECTED INTEGER; 

DO FOR TEliFOPARY N = 1 TO SIZE({V))i 

if v. status = off then 
n; 

REPEAT; 



END', 
CLOSE SELECT_eEST; 
GUIDANCE : 
PROCEDURES BEST_VEL>S 

DECLARE BEST_VEL SUPER_VECTOR-5TRUCTURE ; 
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CLOSE guidance; 

OTHEH_SW: 

PROCECU=E(V); 

DECLAPE v super_vector-stpu:tupe; 



CLOSE OTHER.SW, 
REA3_IMU: 

PRCCEDLKEtUNIT.HUMI ASSISE STRUC ) ; 
DECLARE UIIIT_NUM INTEGER, 

STBUC SUFER_VECTOR-STRUCTURE 



CLOSE PEA0_iru; 
CLOSE examfle_n; 



Note, however, that there are a few ways in which multi-copied structures are different 
from arrays: 

1) Only one dimension of structure copiness is allowed. 

2) Arrays may be used as structure components, but multi-copied structures may not. 

3) There are no operators or built-in functions for processing structures. 



Exercises 

9.3A Rewrite the solution of problem 9.2C using multi-copied structures. 

9.3B Consider the following structure template and declaration: 

STRUCTURE Al: 
< 1 B ARRAY(5) INTEGER, 

1 C SCALAR, 

1 D VECTOR(6); 
DECLARE A Al-STRUCTURE(IOO); 

Write a HAL/S expression to reference the following data items, and indicate their type and 
arrayness/copiness. 

a) The 25th copy of A. 

b) The 3rd component of B from all copies of A. 

c) C from the 10th through 20th copies of A. 

d) D from 75th to 85th copies of A. 

e) The 1 st element of D from the first copy of A. 
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9.3C The following information about a company's 100 employees is available: 
a) SS number (integer) 



b) salary 

c) job code 

d) name 



(scalar) 

(integer) 

(character) 



Write a HAL/S program to read in all the data from channel 5 and compute the average 
salary. Create a structure to hold all of the available information. 



9.4 DENSE, RIGID, AND "UNQUALIFIED" 

DENSE and RIGID are minor attributes that can be applied to structures and their 
nodes to give the user more control over the layout of structure data in storage. The term 
"unqualified" refers to a type of structure in which it is not necessary to qualify each refer- 
ence to a terminal by the name of the containing structure. These features may not be fre- 
quently used, but they do provide additional capabilities required by some applications. 



9.4. 1 The DENSE Attribute 

The DENSE attribute instructs the compiler to pack portions of a structure into as little 
storage as possible, generally at the expense of efficient references to the data. The DENSE 
attribute is specified on a structure template or a node of a template as shown in the figure 
below: 



program; 

structure flags dense: 

1 Bl BOOLEAN, 
1 B2 BOOLEAN, 
I NODE INTEGER, 
1 B3 BOOLEAN, 
1 C CHARACTERS)! 
DECLARE STATUS FLAGS-STRUCTURE INITIAL! OFF, 
CLOSE P; 



OFF, "); 
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The effect of the DENSE attribute is implementation dependent. This is because the 
mapping of HAL/S data types into bits, bytes, words, double words, etc., varies according to 
the storage formats of individual target machines. Most computers have operand alignment 
requirements, for instance requiring that floating point numbers be stored at an address 
which is a multiple of two or four. The HAL/S programmer is normally isolated from these 
considerations. Since variables are only referenced by their symbolic names, the compiler is 
free to re-arrange declared data to meet the requirements of the machine. 

Unless the DENSE attribute is specified, all data is ALIGNED (i.e. placed on appropriate 
storage boundaries). DENSE data is packed whenever there is a reasonably efficient means 
of bypassing the computer's operand alignment requirements. Thus, the only general state- 
ment that can be made about DENSE structures is that they tend to require less storage but 
more time to access than ALIGNED structures. 

It turns out, though, that most compilers will pack booleans and bit strings in DENSE 
structures. In the example above, Bl, B2 and B3 would occupy the same amount of storage 
that would be allocated to a single ALIGNED boolean. Note that B3 is placed in the same 
byte, word or other addressable unit as Bl and B2 even though an integer is between them 
in the template. Whether or not DENSE is specified, the compiler is free to rearrange the 
order of structure components to minimize the number of alignment gaps or to optimize 
the addressing of certain components. In fact, all declared data is subject to the rearrange- 
ment unless the RIGID attribute is specified (see Section 9.4.2). 

Components of a DENSE structure are referenced in the usual way; some additional re- 
strictions on their use apply, but where they are allowed, they behave exactly like compo- 
nents of a corresponding ALIGNED structure. Thus, statements like: 

STATUS .Bl = ON; 

STATUS.B2, STATUS.B3 = FALSE; 

IFSTATUS.B1 AND STATUS.B2 THEN STATUS.MODE = 9; 

work as described previously. The additional restrictions* imposed on terminals of dense 
structures are: 

1) Bit or boolean terminals of a dense structure may not be passed as ASSIGN param- 
eters to procedures. 

2) Bit or boolean terminals of dense structures may not be used on the left hand side of 
a FILE statement. 

3) Bit or boolean terminals of dense structures may not be used in NAME expressions. 
See Chapter 13. 



These restrictions avoid the need to pass both an address and starting bit number to Library or USER- 
supplied routines. 
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These are the only restrictions imposed on the DENSE attribute; note that they apply 
only to bit and boolean types and do not apply to entire structures with the DENSE attri- 
bute even if these structures contain bit or boolean terminals. Thus, 

[STATUS] = FILE(IJ); 

is legal, but 



FILE(1,1); 



STATUS.B1 
is not legal. 

9.4.2 The RIGID Attribute 

Consider the following structure: 

STRUCTURE INTEGER LIST: 

1 SI INTEGER, 

1 Dl INTEGER DOUBLE, 

1 S2 INTEGER, 

1 D2 INTEGER DOUBLE; 
DECLARE IOTA 1NTEGER_LIST-STRUCTURE; 

On a computer which requires that double precision integers be stored on even ad- 
dresses, the compiler would probably rearrange the data as follows: 



word: 




1 

2 
3 
4 
5 



Dl 



D2 



SI 



S2 



If the data was kept in the natural sequence, the following would be needed: 
word: 





1 
2 
3 
4 
5 
6 
7 



jAi 



Dl 



S2 



D2 



The shaded areas indicate alignment gaps which are effectively wasted storage These dia- 
grams show how allowing the compiler to re-arrange data can result in a substantial savings 
or memory. 
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Occasionally, however, it is necessary to prevent this rearrangement, generally to inter- 
face with external devices or NONHAL routines. The RIGID attribute is supplied for this 
purpose. The second diagram shows the storage assignments that would be made if the 
word RIGID appeared immediately before the colon of the STRUCTURE statement. An 
appropriate use of the RIGID attribute appears below: 

STRUCTURE IMU^DATA RIGID: 

1 DELTA_V ARRAY(3) INTEGER DOUBLE, 
1 ATTITUDE ARRAY(3) INTEGER, 
1 TIME BIT(32), 
1 STAT DENSE, 
2 Fl BOOLEAN, 
2 F2 BOOLEAN, 
2 F3 BOOLEAN, 
2 UNUSED BIT(13), 
1 OP_MODE INTEGER; 
DECLARE IMU_DATA IMU-DATA-STRUCTURE; 
CALL ASM_TO_ROUTINE ASSIGN(IMU_DATA); 

In addition to the syntax for declaring a RIGID structure, this example shows the 
DENSE attribute applied to the STAT node. IMU_DATA.STAT is both RIGID and 
DENSE. The RIGID attribute on the structure is inherited by all of its nodes. If any addi- 
tional nodes were defined below STAT, they would also be RIGID and DENSE, unless the 
ALIGNED keyword was specified. The RIGID attribute is always inherited (cannot be 
turned off) since there is no "non rigid" keyword. 

The RIGID attribute allows any data layout to be mapped into HAL/S data types It 
does not impose any restrictions on the use of a structure or its components. However, two 
structures cannot be of the same data type unless neither or both are RIGID (i.e.', the 
templates won't match). 

9.4.3 Unqualified Structures 

In the example above, note that "IMU_DATA" is the name of the template and the 
name of the declared structure. This fact makes IMU_DATA an unqualified structure. 

When a structure template is to be used in only one declaration, it is convenient to give 
the structure the same name as the template. This permits the name of the structure to be 
omitted when referencing its nodes and terminals. Again referring to the structure above 
the statement, ' 

DO CASE IMU_DATA.OP_MODE; 
is legal, but the more convenient form, 

DO CASE OP_MODE; 
is also permitted. 
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Unqualified structures differ from qualified structures (all previous examples) only in 
the form of references to their components. It has already been stated that there is no exe- 
cution-time penalty involved in using a structure terminal instead of a simple variable; if an 
unqualified structure is used, no distinction has to be made in the source code either. Thus, 
there is no disadvantage to using a rigid unqualified structure to force a collection of vari- 
ables to be allocated in a particular sequence, except for possible alignment gaps. 

Sometimes it is useful to convert a set of declared variables to the components of an un- 
qualified structure, since all of the variables (now structure terminals) can be transferred to 
or from a random-access device in a single FILE statement. Variables are also sometimes col- 
lected in an unqualified structure for documentation purposes since this allows them to be 
discussed as a group under an "official" name which appears in the source code. 

Now that structures and their uses have been fully described, only two data types re- 
main. Bit strings, which are the general case of booleans, are discussed in Chapter 13, and 
event variables, which may be thought of as "real-time booleans", in Chapter 12. The mate- 
rial covered thus far in the text should allow most applications to be coded in HAL/S; the 
handling of errors and exceptional conditions will be discussed in the next chapter. Then we 
will proceed to put a collection of programs together and execute them as an integrated sys- 
tem in Chapters 1 1 and 1 2. Chapter 1 2 describes how the user may control execution rates 
and inter-process communication and synchronization. The book concludes by discussing 
several constructs that are provided for writing "system programs" such as I/O device drivers 
and memory management routines. 
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9.4A Given: 



STRUCTURE A RIGID: 
1 B, 

2 C INTEGER, 
2 D VECTOR. 
1 E, 
2 F, 

3 G MATRIX(4,5), 

3 H ARRAY(2,3) INTEGER DOUBLE, 
2 I INTEGER; 

STRUCTURE AF: 
1 G MATRIX(4,5), 
1 H ARRAY(2,3) INTEGER DOUBLE; 

STRUCTURE RAF RIGID: 
1 G MATRIX(4,5), 
1 H ARRAY(2,3) INTEGER DOUBLE; 

DECLARE X A-STRUCTURE, 

Y AF STRUCTURE, 

Z RAF_STRUCTURE; 
DECLARE INTARR ARRAY(2,3) INTEGER DOUBLE, 

Are the following assignments legal? 

a) X.E.F = Y; 

b) Z = X.E.F; 

c) X.E.F.H = Y.H+Z.H; 

d) Y.G = Z.G; 

e) X.B.C = Y.H$(1,1); 

9.4B Consider the following structure template and declaration: 

STRUCTURE A: 

1 B SCALAR, 

1 C INTEGER, 

1 D VECTOR(6); 
DECLARE A A-STRUCTURE(20); 
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What do the following HAL/S subscripted variables reference, and what are their types and 
arrayness/copiness: 

a) A$(20;) 

b) AS(2 AT 10;) 

c) C$(l;) 

d) D$(4 TO 6;) 

e) D$(*; 4 TO 6) 



End of Chapter Problems 

9A What are some of the capabilities that HAL/S structures give the program that would 
otherwise be unavailable? 

9B Write a HAL/S program that will read simulated data from 3 redundant sensors on 
channel 5 and compute the middle value of the 3 redundant pieces of data. 

Read an acceleration, velocity, attitude (3-vectors), and a scalar time tag after each 
from each measurement unit. First read from unit 1, then 2 and 3 in that order. 
Compute the middle value of the three measured values for each quantity (using the 
ABVAL built-in function to compare magnitudes of the vectors), and store these 
values with their associated time-tags in a structure with the following template : 

1 BEST_ACCEL, 

2 ACCEL VECTOR, 

2 ACCEL_TIM SCALAR, 
1 BEST_VEL, 

2 VEL VECTOR, 

2 VEL_TIM SCALAR, 
1 BEST_ATTITUDE, 

2 PITCH VECTOR, 

2 PITCH_T1M SCALAR; 
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10.0 ERROR RECOVERY 

Each implementation of the HAL/S language defines a set of runtime errors. These 
errors, ox exceptions, include: 

1) invalid arguments to built-in functions, such as SQRT (-1); 

2) I/O errors, such as reading past the end of a file ; 

3) hardware detected errors, such as attempting to divide by zero; 

4) and other conditions which may arise while executing certain HAL/S statements, 
e.g. inverting a singular matrix and using invalid character subscripts. 

By default, when one of these errors occurs, a standard flxup is performed; on ground- 
based systems, an error message may be generated as well. In some cases, the standard fixup 
is to print diagnostic information and terminate the program, but usually some innocuous 
value is substituted for the offending expression and execution continues. For instance if 
SQRT(X) is invoked with a negative X, the standard fixup is to return SQRT(ABS(X)) The 
standard fixups for all errors defined in a compiler are listed in the corresponding Users 
Guide. 

The standard fixup may not be appropriate for all applications. Hence, HAL/S provides 
a mechanism that allows user-supplied HAL/S statements to gain control when an error 
occurs. In this figure, an ON ERROR statement is used to handle an end of file error 
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TEST_X: 

proc-Sam; 

REPLACE ID Br "10"; 
DECLARE SCALAR, 

INFUT, OUTPUT, EXPECTED; 
DECLARE INTEGER INITIAL! 01, 

RIGHT, WHONS;' 
ON ERROR 

10:5 

GO TO DONE; 
DO WHILE TRUE; 

READ(5) INPUT, EXPECTED; 
CALL X( INPUT) ASSIGN(OUTPUT); 
IF OUTPUT = EXPECTED THEN 

RIGHT = RIGHT + 1; 
ELSE 

WRONG = WROIJS t l; 
END ; 
DONE: 

WRITEC6) 'RESULTS OF TESTING X'; 
WRITEC6) RIGHT, • SAMPLES CORRECT, ' 

PROCEDURE(I) ASSIGN(O); 
DECLARE SCALAR, 
I, 0; 



CLOSE X; 
CLOSE TEST X; 



WRONG, ' SAMPLES INCORRECT'; 
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Only one new construct is used in this example: 
ON ERRORS (IO:5) GO TO DONE; 

This is an executable statement which establishes "GO TO DONE;" as a handler for the end 
of file error. When the ON ERROR statement is executed, the default error handling (i.e. 
standard fixup) for the end of file error is replaced by the GO TO statement supplied. The 
function of the ON ERROR statement is to selectively replace the standard error handlers 
under program control. 

10.1 THE ON ERROR STATEMENT 

Like the IF statement, ON ERROR is a compound statement (i.e. a statement which 
contains another statement). It specifies an action to be performed when an error occurs. 
This action may be an executable statement, but GO TO is the most commonly used in this 
context. In fact, the action portion of an ON ERROR statement should be the most fre- 
quent use of GO TO HAL/S. The example above, however, can be re-written without a 
GO TO, as in this figure: 



M 


TEST_X: 


H 


program; 


M 


REPLACE 10 BY "10"; 


11 


DECLARE INTEGER INITIAL(O), 


tl 


RIGHT, ICONS; 


C 




C 




C 




M 


ON ERROR 


S 


10 = 5 


M 


do; 


M 


WRITEC6) 'TEST RESULTS FOLLOW; 


M 


URITE16) RIGHT, WRONG; 


M 


RETURN; 


M 


END ; 


M 


DO NHILE TRUE; 


C 




C 




c 




M 


end; 


M 


close; 



In this example, a DO . . . END group serves as the action of the ON ERROR statement. 
Note that in making this change it was necessary to add a RETURN statement after the 
WRITE statements. This is because after the action of an ON ERROR statement has been 
executed, control falls through to the following statement. If the RETURN were not coded, 
the DO WHILE TRUE loop would be re-executed after the WRITE statements and the 
error probably would recur, resulting in an infinite loop. The next figure illustrates the flow 
of control around an ON ERROR DO . . . END group. 
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DO; 
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END; 



END OF FILE ERROR • 



Key: 



► normal control flow 

-^" error exit 

on error compound statement 
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After an error occurs and a user-specified action is taken, there is no way to resume 
execution at the point that the error was detected. For efficiency reasons, the state of the 
program immediately after the error is not saved, and hence cannot be restored. 

The end of file example illustrates one difference between the HAL/S ON ERROR sys- 
tem and the system of alternate returns or "END= ..." used in many languages. The ON 
ERROR statement was coded outside of the DO WHILE loop; thus the overhead associated 
with defining an end of file handler is paid only once, rather than at each READ statement. 

The subscript in the ON ERROR statement consists of two numbers separated by a 
colon. The left number is an error group; the right number is an error code within that 
group. Denoting errors by both a group and a code allows entire groups of errors to be 
handled identically (see later). The group and code assignments of a particular error are gen- 
erally the same among various implementations of the language, though this is not guaran- 
teed by the HAL/S Language Specification. The User's Manual which corresponds to the 
compiler in use should be consulted before using ON ERROR statements. 

The compiler used in producing the listings for this book follows the same convention as 
several HAL/S compilers: all I/O error are assigned to group 10, and codes 0-9 in this 
group represent end of file errors on channels 0-9. Thus, ON ERRORS (10:5) sets up a 
handler for end of file on channel five. Use of the macro: 

REPLACE 10 BY "10"; 

is used to improve readability. 

If a program reads data from several devices, an end of file handler can be created for 
each, e.g. 

ON ERRORS (IO:4) GO TO NO_MORE_CARDS; 
ON ERRORS (IO:5) GO TO END_OF_TAPE; 

etc. 

It may be more convenient to write one handler for any I/O error; this can be easily done 
by omitting the error code as in: 

ON ERRORS (IO:) GO TO DONE; 

or 

ON ERRORS (IO) GO TO DONE; 

These forms both specify "any error code with the given group". Finally, the statement: 

ON ERROR GO TO DONE; 

sets up "GO TO DONE;" as the handler for all errors (including end of file). 
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program; 


M 




DECLARE M MATRIX; 


C 






C 






C 






M 




ON ERROR 


S 




<t:27 
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do; 
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M 




M = 0; 


H 




GO TO LI; 


M 




end; 


E 




» *-l 


M 




M = M ; 
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LI 




E 




* 


M 




WRITEC6) M! 


C 






c 






c 






M 


CLOSE p; 



ON ERROR is the standard means of handling exceptions which arise from operations 
on invalid data. For example, a runtime error will result from attempting to invert a singular 
matrix. The standard fixup for this error is to print a message, return the identity matrix, 
and continue execution. In the program segment above an ON ERROR statement is used 
to substitute a zero for the identity matrix. 

It should be noted that use of this form of the ON ERROR statement replaces the 
standard fixup. Hence it prevents the generation of an error message. Many implementations 
impose a limit on the number of errors that may occur before the program is terminated by 
the system: When a user-supplied handler is invoked, the error is not counted toward this 
limit. 

Once an ON ERROR statement is executed, the specified error handler remains in effect 
until it is deactivated. One means of deactivating an error handler is shown below: 



P: 

program; 

declare m matrix, 
I integer; 

DO FOR I = 1 TO 10! 
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DO; 
* 
M = o; 

GO TO Ll; 

end; 
* *-x 

n = n ; 

Li: raiTE(6) M! 



end; 

on ersoh system; 

*:27 



Here, the keyword SYSTEM is used in place of an executable statement as the action of the 
ON ERROR. This statement has the effect of restoring the standard fixup for ERRORS 
(4:27). To see why this statement is needed, suppose that additional inverse operations were 
coded later in the program, and this statement was omitted. If one of these operations 
caused an error, control would be transferred to the user handler in the middle of a loop. 
This would be disastrous, since the compiler assumes that a loop can only be entered by 
execution of the DO . . . statement at its head. Thus, ;/ an error handler is coded in a loop, 
it should always be deactivated at exit from the loop. In general, it is good practice to de- 
activate error handlers as soon as they are no longer needed. 

The statement: 

ON ERRORS (X:Y) SYSTEM; 



restores the default (system) recovery action for error X:Y (group X, code Y). In addition 
to SYSTEM and an executable statement, IGNORE can be used as the action of an ON 
ERROR statement, as in: 

ON ERRORS (4:27) IGNORE; 

This statement informs the error recovery system that inverting a singular matrix is not to 
be considered an error; i.e. that the standard fixup (returning identity) is appropriate and 
that execution should continue without an error message or other notification. Depending 
on the compiler in use, IGNORE may not be permitted for certain errors. 
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When an ON ERROR statement is executed, an error recovery action is established for 
an error or group of errors. Three recovery actions are possible: 

1) an executable statement to receive control, (in lieu of the standard fixup and an 
error message); 

2) SYSTEM, which is the initial state and includes both the standard fixup and an error 
message ; and 

3) IGNORE, which requests the standard fixup without an error message. 

Any number of recovery actions may be in effect at one time. In a sense, the actions are 
cumulative. If the code below were executed, four recovery actions would be in effect. 
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PROGRAM; 
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DECLARE SCALAR, 
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A, B, c; 
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DECLARE INTEGER, 
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X, Y, z; 
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ON 


ERROR 
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WRITEI6) A, B, C, X, Y, Z; 
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RETURN; 
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end; 
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return; 
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ERROR IGNORE; 
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ON 


ERROR SYSTEM; 
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LAST_CAR0 : 


M 


CLOSE 


p; 



The net effect of these statements is: Any end of file error, except on channel five, will 
be ignored, and any other error, except 4:2, will cause the WRITE and RETURN statements 
to be executed. If error 4:2 occurs, the system action will be taken, and when 10:5 occurs, 
P will close. This shows that the handler for error $ (10:5) takes precedence over the 
handler for error $ (10:). The general rule that applies is: When the error specifications in 
several active ON ERROR statements in a single block apply to a particular error, the most 
specific takes precedence. Thus, as each of the last three ON ERROR statements in P is 
executed, the number of errors handled by the first and most general one is reduced. 

Note that the rule above applies only to ON ERROR statements in a single block 
(program, procedure, function, etc.). The effect of ON ERROR statements in nested blocks 
will be discussed in the next section. Note also that an ON ERROR statement has no effect 
until it is executed. 
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Exercises 

1 0. 1 A Where does the flow of control go after the action of an ON ERROR statement has 
been executed? 

10. IB Why is it good programming practice to deactivate any error handler that is coded 
inside a loop when that loop is exited? 

10. 1C What are the three possible recovery actions in the event of a runtime error? 

10. ID Write the precedence relations for the 3 general forms of subscripting for the ON 
ERROR statement when they occur in the same code block. 



10.2 DEACTIVATING ERROR HANDLERS 

An error handler can be deactivated in three ways: 

1 ) by overriding it with a new handler, 

2) by exiting from the containing block, 

3) by using the OFF ERROR statement. 

All of these methods are affected by the HAL/S block structure. A procedure or function 
cannot make any permanent change to the error environment of its caller. This statement is 
a consequence of several rules which will be described with reference to the figure below. 
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A: 
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program; 
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ON ERROR IGNORE; 
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CALL b; 
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call c; 


M 


B: 
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procedure; 
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ON ERROR 
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1:2 
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GO TO x; 


M 


CALL c; 
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X: WRITEC6) 'GOT AN ERROR'; 
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CLOSE b; 
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C: 


M 


procedure; 


M 


close c; 


(1 


CLOSE a; 
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None of the statements shown can produce an error; however we will discuss what 
would happen if ERRORS (1:2) were caused by an additional statement inserted at various 
points. 

If the error occurs in block A proper (i.e. outside of B and C), the IGNORE action will 
be taken, even after B is called and returns. This is because any error handler defined in a 
block is cancelled when that block RETURNS or executes its CLOSE statement. When B 
returns, the error environment reverts to that in effect when B was called. In this case, the 
IGNORE action is re-instated. 

When the ON ERROR statement in B is executed, the IGNORE action is temporarily 
overridden by the GO TO action. This action then remains in effect until B returns. If the 
error occurs in B, but before the GO TO action is set up, the IGNORE action is taken. 
Merely invoking a block does not change the error environment. When B calls C, the GO TO 
action is still in force; if ERRORS (1:2) occurs in block C, control will be passed to the 
label X in block B. In effect, C returns to X instead of to the point of invocation. When this 
happens, the error environment is restored to that which prevailed before C was called, just 
as if C had returned normally. 

In the example, block C is also called directly from block A. In this case, of course, the 
ON ERROR statement in B has no effect ; if the error occurs in C when it has been called 
from A, the IGNORE action is taken. Thus, we see that the range over which an ON 
ERROR statement is active is not determined by the static block structure, but by the 
actual sequence of CALLs and RETURNS. 

The left-hand diagram below shows the static block structure of a program A, which 
is suitable for describing the scoping rules for variables. 





Block Structure 

'outer" variable can be 
referenced. 



Call Tree 

"upper" blocks affect error 
environment. 
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The right-hand diagram illustrates the range of ON ERROR statements within A, B and C. C 
occurs twice in the diagram, at the ends of different limbs. Since all intervening blocks 
between a given block and the top of the tree may be scanned for handlers when an error 
occurs, a block's error environment depends not only on local ON ERROR statements, but 
those in the calling block, and in the caller's caller, and so forth. Block C may be affected by 
B's error environment even though it cannot access B's variables. 

Now that the basic concepts have been illustrated, the rules for deactivation of error 
handlers can be stated precisely: 

1) When a code block exits (by RETURN, CLOSE, or due to an error) the error envi- 
ronment is restored to that in effect when the block was entered. 

2) An error handler may be replaced by execution of an identically subscripted ON 
ERROR statement in the same block. 

3) An error handler may be temporarily overridden by creating another handler in a 
"lesser" block (i.e. lower in the call tree) which applies to the same errors). 

4) An error handler may be completely erased by execution of an identically sub- 
scripted OFF ERROR statement in the same block. 

These are the only ways that an error handler may be deactivated. Note that there is no 
limit to how far up the call tree the system will search for a handler when an error occurs. 
As stated previously, when a particular block contains several handlers that could apply to 
the same error, the most specific is selected. Other active blocks are searched only if no 
handler at all for this error is found in the current block. 

The OFF ERROR statement may be used to cancel the error handler created by a cor- 
responding ON ERROR statement. There are only four possible forms: 

OFF ERROR; 
OFF ERRORS (nl:n2); 
OFF ERRORS (nl:); 
OFF ERRORSnl; 

and of these, the last two are equivalent. The effect is simply to cancel an identically sub- 
scripted ON ERROR statement in the same block. If no such ON ERROR statement has 
been executed, the OFF ERROR statement has no effect 

The primary use of the OFF ERROR statement is to re-instate an error handler in the 
calling block which had been overridden by a local ON ERROR statement. An example of 
this usage appears in the following figure. 
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close b; 
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CLOSE A; 



It should be noted that the handler cancelled by an OFF ERROR statement must not 
only be in the same block, but it must describe exactly the same error(s). For instance, the 
sequence : 

ON ERRORS 1 IGNORE; 
ON ERRORS2 IGNORE; 
OFF ERROR; 

would leave two handlers active, since the OFF statement is more general than the ON 
statements. To cancel them both would require two statements: 

OFF ERROR$(l:); 
OFF ERRORS2; 

Likewise, the sequence: 

ON ERROR$(l:) IGNORE; 
OFF ERROR$(l:2); 



does not exclude ERROR$(l:2) from the handler. Unless there is an identically (plus or 
minus a trailing colon) subscripted ON ERROR statement in the same block, OFF ERROR 
will do nothing. 
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Exercises 

1 0.2 A In what ways is it possible for an error handler to be deactivated 



10. 2B In the following examples of sequences of ON ERROR and OFF ERROR state- 
ments, which handlers are left active after the sequence? 

a) ON ERRORS 1 IGNORE; 
ON ERROR$(l:2) IGNORE, 
ON ERROR$(2:l) IGNORE; 
OFF ERROR; 
OFFERROR$(l:3) 

b) ON ERRORS 1 IGNORE; 
ON ERROR$(l:l) IGNORE; 
ON ERROR$(2:) IGNORE; 
OFF ERROR$(l:); 

OFF ERROR$(2:l); 



10.3 OTHER ERROR CONTROL CONSTRUCTS 

In addition to ON and OFF ERROR, which activate and deactivate error handlers, 
HAL/S provides the SEND ERROR statement, which annunciates an error condition, and 
a pair of built-in functions which allow information to be obtained from the recovery 
system. 

The SEND ERROR statement has two uses: to simulate the occurrence of system- 
defined errors for testing and other purposes, and to allow the user to define additional 
error types. It has only one form: 

SEND ERROR$(nl:n2); 

where nl and n2 are integers computable at compile-time and in the valid range of error 
groups and codes specified by the appropriate HAL/S User's Manual. The effect of the 
SEND ERROR statement is merely to trigger whatever handler has been set up for the 
specified error. 

When a SEND ERROR is executed, the error environment is searched for an applicable 
ON ERROR handler. If the action is an executable statement, control is passed to it and 
execution continues without an error message. If the IGNORE option was specified, execu- 
tion continues at the statement following the SEND ERROR, also without a message. If 
the action is SYSTEM, or no error handler is found, then an error message is generated, 
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and either the run is terminated, or execution continues at the statement following the SEND 
ERROR. The User's Manual states whether execution will continue* after an error of each 
system-defined type. Generally, if the group and code are not system-defined (i.e. not listed 
in the User's Manual) the SYSTEM action allows execution to continue. Thus, it is possible 
to write a "standard fixup" for a user-defined error, as shown below. 



LOG10: 




FUNCTIONS ) SCALAR; 




DECLARE X SCALAR; 




IF X > THEN 




RETURN LOG(X) / LOGtlO) 




ELSE 




do; 




SEND ERROR ; 




9 = 1 




RETURN LOG(ABS(X)) / 


LOG(IO); 


end; 




CLOSE L0G10; 





Now, when LOG 10 is invoked with a negative argument, error 9: 1 will result. This error 
may be handled by the calling routine in the usual way; e.g. 

DECLARE N SCALAR INITIAL(-l); 
ON ERROR$(9:l) DO; 

N = 100; 
END; 
WRITE(6) LOGIO(N); 

This code will write log] q(100). If the next two statements were: 

OFF ERROR$(9:l); 
WRITE(6) LOG10(-99); 

there would be no active handler for error 9:1, so an error message would be printed and 
execution would continue at the second RETURN statement in LOG 10. This RETURN 
statement serves as a "standard fixup" for a negative argument to LOG 10; in this case, 
logj q(99) would be returned by the function. 



♦Some implementations may allow an error to occur (or be simulated) a given number of times before ter- 
minating. Others may always continue or always terminate. 
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group and code, respectively, of the last error that occurred in the process* hit TvoS 
them. If no errors have occurred, they return zero. invoices 

ON™ e nl U M° nS 7 US f, d Primari ' y Whe " a nUmber 0f errors are ha "dled by a single 
ON ERROR statement, as illustrated below: 

ON ERROR DO; 

WRITE(6) 'RUN STOPPED DUE TO ERROR' 

I IERRGRPI | ':' | | ERRNUM; 

RETURN; 
END; 

One additional form of ON ERROR statement is provided. This form allows event 
variables to be manipulated when an error occurs. The form of this type of enor «c3 
action is described m the language specification. Event variables are discussed in Chapter 



Exercises 

10.3 A What are the two uses for the HAL/S SEND ERROR construct? 

10.3B Say we enter a program block, P, which calls some procedure A, which in turn 
cals procedure B. In the code block for B, there is an ON ERRORS(l) IGNORE 

execTt'n ft tlT "** *T ^^ N ™ "* °™ < 1:3 > -curs Iring Th! 
execution of the program. Does the program need to search code blocks A and P 
for the error handlers for error (1 :3) or will it automatically ignore the error because 
the statement ON ERRORS 1 was found in that block' 



\ T £ck s erm Pr ° CeSS " defmed fa Chaptei ' 1 • Here " m W be take » to mean a program and all of 



its internal 
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End of Chapter Problems 

10A Consider a HAL/S program with the following lexical structure 
P: PROGRAM 



ON ERRORS 1 IGNORE; 
ON ERRORS2 IGNORE; 

:© 

A: PROCEDURE; 

: © 

ON ERROR$(l:2) IGNORE; 
OFF ERROR$(l:); 

: '© 

B: PROCEDURE; 

OFF ERROR$(l:2); 

ON ERROR$(2:l) IGNORE; 

ON ERROR$(3:) IGNORE; 



OFF ERROR$(2:) 




© 


CLOSE B; 




: © 

CLOSE A; 




: © 




CLOSE P; 





Say the execution of the program 
procedes as follows: 



P -* ( I ) executed 


P calls A 




A ->■ (ll) executed 


A calls B 




B - © 


executed 


B -* (V) executed 


B returns to A 




A - © 


executed 


A ■+ © 


executed 


A returns to P 




P ->■ © 


executed 


execution stops 



What happens if the following 
errors occur at these times (i.e., 
error message or no error message)? 



a) ERROR$(l:l 

b) ERROR$(3:l 

c) ERROR$(2:l 

d) ERROR$(2:2 

e) ERROR$(l:2 

f) ERROR$(2:l 

g) ERROR$(2:l 
h) ERROR$(l:l 
i) ERROR$(l:2 
j) ERROR$(l:3 
k) ERROR$(3:3 
1) ERROR$(l:l 
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1 1.0 STRUCTURING LARGE APPLICATIONS 

In this chapter the discussion of the HAL/S facilities for building a program complex 
consisting of many separately compiled pieces is presented. First, we will describe the unit 
of compilation, which has been a PROGRAM in previous chapters but is not restricted to 
this type. Then we will discuss means of putting these units together in a way that is suit- 
able for a particular application. Finally, we will introduce the concept of multi-program- 
ming and discuss some of the methods of safely sharing code and data between programs that 
execute "simultaneously". This discussion will lead into the real-time control statements to 
be presented in Chapter Twelve. 

11.1 THE UNIT OF COMPILATION 

A unit of compilation is a sequence of HAL/S statements which comprise a complete, 
valid input to the compiler. It must be either a program, a procedure, a function or a corn- 
pool (common data pool). Programs have already been discussed at length, though no means 
of invoking them has yet been presented. This is because programs receive control directly 
from an operating system, not from other HAL/S code. 

Procedures and functions can be compiled independently so they can be shared among 
programs; a compool is a block of data that can be shared among separately compiled units. 
Thus, programs are the primary compilation units while the others provide global code and 
data. 

There are two major reasons for dividing a software system into separately compilable 
units. Obviously, when several programmers collaborate on a system, it is convenient if they 
can compile their own work independently. A more important reason stems from the way 
program units receive control. The capabilities of the operating system in use may determine 
the appropriate structure for an application. 

Under an operating system which supports the full HAL/S real-time syntax (described in 
Chapter Twelve), many programs may be "simultaneously" active and compete for the use 
of the computer hardware based on a user specified priority. Provision is made for programs 
to be run cyclicly, to wait for given occurrences and to receive control when interrupts 
occur. The operating system provides these capabilities for the invocation of PROGRAMS 
and TASKs (collectively called processes). Thus, a software system may be divided into 
programs to implement a desired dynamic (real-time) structure. 

Unlike procedures, functions and tasks, programs and compools may not be nested in 
any other blocks. 

The following figure shows how these blocks might be used in a simple flight application . 
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r~\ 



■* — 

I/O 



Ky 



CONTROL: 
PROGRAM 



common 
data 



GNC_P00L : 
C0MP00L 

position 
velocity 

pitch command 
roll command 



COMPUTE^ 
PITCH: 

procedurf; 



ETC.: 
PROCEDURE 



(information flow) 



GUIDANCE: 
PROGRAM 



INTERNAL: 
FUNCTION; 



NUTHER: 
PROCEDURE; 



I/O 



I 



I/O 



common 
subroutines 



LIMIT: 
FUNCTION 



FILTER: 
PROCEDURE 



INTERPOLATE 
PROCEDURE 



NAVIGATION: 
PROGRAM 



KALMAN: 
PROCEDURE; 



I/O 



(^ sensors J (controls J C sensors J 
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This diagram shows the software divided into three programs, each with internal pro- 
cedures and functions, and a compool and three independently compiled subroutines. All 
together, there are seven compilable units which must be compiled in an appropriate se- 
quence and linked together. In the remainder of this section we will discuss the rules for 
writing the components of a program complex. 



The LIMIT function and the procedures, FILTER and INTERPOLATE, are compiled 
separately so that they can be called from any of the programs. Such procedures and func- 
tions are called comsubs (from "common subroutines"). A comsub may be coded exactly as 
if it were contained in some program. For instance, the LIMIT function might be exactly as 
it appeared in Chapter Seven. 



M 


LIMIT: 


M 


FUNCTIONr VALUE, BOUND ) SCALAR; 


M 


DECLARE SCALAP, 


M 


VALUE, bound; 


M 


IF VALUE > BOUND THEN 


M 


PETU=N BCUND1 


(1 


IF VALUE < -BOUND THEN 


n 


RETURN -ECUHD; 


M 


RETURN VALUE; 


M 


close limit; 



Aside from the fact that a comsub is not contained in any block, and thus cannot reference 
outer variables via name scoping rules, all of the statements about procedures and functions 
made in previous chapters also apply to comsubs. 

Some of the consequences of this general statement may not be immediately obvious. 
For one, comsubs may have additional procedures and functions nested within them. Scop- 
ing rules apply to blocks contained in a comsub just as they would to blocks contained in a 
program. In fact, the only significant difference between an independently compiled proce- 
dure without parameters and a program is the manner of invocation : programs are never 
CALLed and procedures normally do not receive control directly from the operating sys- 
tem. 

It is also worth noting that the error recovery system does not distinguish between com- 
subs and internal procedures and functions. If an error occurs in a comsub and no local ON 
ERROR statement applies, the error environment of the calling block is searched, whether 
that block is a program, another comsub, or ah internal procedure of some program or 
comsub. 



Comsubs are also referenced in the same way as corresponding internal blocks; there is 
no way to tell by inspection of a CALL statement or function invocation whether the refer- 
enced block is internal to the compilation unit or external (a comsub). Comsubs may have 
any number of arguments of any type, exactly as described in Chapter Seven. The various 
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ete S still U a D Z tC t 8 oH ta t t yPeS V restrictions °" ASSIGN parameters, automatic conversions 
etc., still apply In older to enforce these rules the compiler needs to know the declared 
types of comsub's forma, parameters. This information is communicated ZutloTem- 

Under most implementations of the HAL/S compiler, a block template is automatical 

TZT n t, T 6T 8 Pf0gram ' C ° mSUb ' ° r C ° m P° o1 is com P«^. The bock temp" con 
an all the information needed to reference that block from another compiaZ umt In 
he case of a comsub this information consists of its name, the sequence and tyLs of its 

formal parameters, and the type of its return value, if any. A comsub is made accessible to 

^^bSr^ its tempiate - Fw instance ' * — « »«•£ ^r 

D INCLUDE TEMPLATE LIMIT 
P: PROGRAM; 

DECLARE X SCALAR INITIAL(12)- 
X = LIMIT(X,10); 
CLOSE P; 

strucrf th^ DE ^ a , C T Piler direCtiV6 ' 3S de " 0ted by the Character D in c °'"™ one. It in- 

Snfo the ^ NCLUDE ^ 6 ^ \ taa ^ ta for b,ock LIM 'T into the completion at the 

CATION nrnLK Ve ' A " Y nUmber ° f templates «"* be s0 included; the NAVI- 
GA1 ION program might be compiled as: 

column 1 
4- 

D INCLUDE TEMPLATE GNC^POOL 
D INCLUDE TEMPLATE LIMIT 
D INCLUDE TEMPLATE FILTER 
NAVIGATION: PROGRAM; 



CLOSE NAVIGATION; 

Note that these templates are included prior to the program statement This syntax 

CATION* Th 6 I" 3 ; th£ WOCkS GNC - POOL . "MIT, and FILTER are externa" to NAV- 
IGATION. The pnnted output from the compiler contains a listing of each temptate that 
was included. The template for LIMIT appears below: P 

LIMIT: EXTERNAL FUNCTION(VALUE,BOUND) SCALAR 

DECLARE SCALAR, VALUE, BOUND- 
CLOSE LIMIT; 

The template for a comsub consists of the header line with the word EXTERNAL inserted 
the declarations of any formal and assign parameters, and the CLOSE ^atement Th e at' 
the only portions of a procedure or function block that are relevant outside that Mock* 

ISd.^" 60 " 1 " data " emS irrel6Vant ' and "° -V "branching into the m idd.e of a block is 
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The format of a block template is unimportant when a compiler with automatic tem- 
plate generation and the include directive is used. These features are present in all current 
compilers, but they are not included in the HAL/S Language Specification and thus are not 
guaranteed to be present in all implementations. The format of a template is specified, how- 
ever. Hence, if the template cannot be INCLUDEd, it may be hand-coded as part of the 
source prior to the program statement. 

A program may invoke a comsub if it includes the template for that comsub prior to the 
program statement. This mechanism provides for executable code to be shared among sepa- 
rate compilation units. 

Programs generally need to share data as well; the only way to pass information from 
one program to another is via a compool. A compool is a named block of DECLARE, RE- 
PLACE, and STRUCTURE statements; the variables in a compool are accessible to any com- 
pilation unit which INCLUDES the compool's template. 

The diagram at the beginning of this section shows how a compool is used to interface 
the Guidance, Navigation, and Control programs. This compool could be coded as shown 
below. 



GNC_P0OL: 

comfool; 

following declares are nav to guidance interfaces 

declare position vector; 
declare velocity vector; 

following declares are guidance to control commands 

declare pitch_command scalar; 
declare r0ll_c0mman3 scalar initial! 0); 
close gnc pool;" 



As this indicates, a compool is delimited by a block header and a CLOSE statement 
much like the other block types. Unlike other HAL/S blocks, however, a compool consists 
only of a DECLARE group; no executable statements or nested blocks are allowed. It may 
contain DECLARE and REPLACE statements and structure templates. Generally, any 
DECLARE statement which may appear in a program may appear in a compool. There are 
only two exceptions; both resulting from the lack of executable code in a compool; no 
AUTOMATIC data is allowed in a compool, and no label (e.g. function and NONHAL pro- 
cedure) declarations are allowed in a compool. It should be noted from the example that 
static initialization is allowed, and takes the same form as in other blocks. 
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^^^rz^^z to r t serve , a block of stor - -**** -v 

a.l of the information pmtS^Z T ^ A C ° mP ° 01 tempiate CO " tai ™ 
tion is not available, the template ZZclZZ^r ^ ? """^ te -P'^e genera- 
"EXTERNAL" before "COMPOOL 'fn th Wo2 h H m SOUrCe "« by inserting 
™ «ve is needed to m ake ^Tiffi 'ift^ c^ot 

-^^^^ m that comp ° o1 - «- - 

a compool rather than at the program Tevel doe S no hv "^ ^ P ' adng a Va ™ ble in 
way that variables may be Ldb^Zr^T'^^7^ ,myKSttictio ' ,sont ^ 
from nested blocks; we will discuss he !>!' mClUdeS refere " CeS to the v ™able 

and comsubs in the next section W> c *™ °f scoping rules to compool variables 

Exercises 

1 LIB Say an error occurs in some comsub, and no ON ERROR «♦ ♦ 

the error is found in the comsub. What deters IZZtZZltL Sf * 

H.1C a) Smce a compool contatns no executable statements, why must it be compiled at 

b) What is the purpose of a compool template? 
112 BUILDING A PROGRAM COMPLEX 

pool being compiled) is nested. m P" a "°n unit (i.e. the program, comsub, or com- 

^S^S^^ it t^£. , r ,,8 rU,6S m temS ° f b, ° Ck d '— «* the one 
1 ) The comsub S can be called from anywhere within blocks P and Q 
2 The variables A and B can be referenced from anywhere in blocks P and Q 
3) The variable X can be referenced only from block S. 

m ms example i.lustrates the position of template with regard to the main compilation 
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Compilation 

C: EXTERNAL COMPOOL; 

DECLARE SCALAR,A,B; 
CLOSE C; 
S: EXTERNAL PROCEDURE(X) 

DECLARE X SCALAR; 
CLOSE S; 
P: PROGRAM; 

Q: PROCEDURE; 

CLOSE Q; 
CLOSE P; 



Block Structure for Scoping Rules 



DECLARE SCALAR, A,B; 



S: PROCEDURE; 
DECLARE X; 



P: PROGRAM; 



0: PROCEDURE ; 



f COMPOOL DATA 



D 



From the diagram, one might conclude that A and B can be referenced from block S: 
This is true if and only if the template C is included when Sis compiled. Thus, the "outer- 
most block" is not universal; its contents may appear different to each compilation unit, 
depending on which templates are included. This mechanism supports "private" compools 
and comsubs, as we shall see. 

Returning to the example of the communicating GUIDANCE, NAVIGATION, and 
CONTROL programs, suppose that the templates included by each of the seven compilation 
units are as indicated below: 



Compilation Unit 



Type 



Templates Included 



NAVIGATION PROGRAM GNC_POOL, LIMIT, FILTER 

GUIDANCE PROGRAM GNC_POOL 

CONTROL PROGRAM GNC_POOL, FILTER, INTERPOLATE 

GNC_POOL COMPOOL NONE 

LIMIT FUNCTION NONE 

FILTER PROCEDURE LIMIT 

INTERPOLATE PROCEDURE GNC_POOL 



With this structure, the contents of the "outermost block" vary considerably from compila- 
tion to compilation, as shown: 



1 l-S Structuring Large Applications 



POSITION, VELOCITY 
PITCH CUD, ROL L CflD 
[_ LIMIT 




LIMIT 



FILTER 



J 



POSITION, VELOCITY 
PITCH C.'JD, ROLL CAD 



GUIDANCE 



♦indicates the module being compiled. 



any o^^^ItioT " ni r P T S '^^tST^ ^ ^ ^ ** *»»«° ° f 
subs; compools may include he W tes „f n^h C ° mP ,° 01 ^^ ° T Ca " 0ther com - 

statements defining array size foHnstln' rt P T^' (t ° UtUize global REPLACE 

later sections. »"i see me utility ol program templates in 

™X t £s if ^sr ,^s; t0 t? and compoo] - w - * - 

desirable to set up managerial mle concern I f 3 * Pr ° gram com P lex il ™X be 
subroutines. Com'ub templa s a e included one t ^'f S "^ ^^ Whkh data and 
included, all o{ the variabl P es ™ ^ ^'^ TS.'.T ^ ^^ " 
compool data, either of two approaches may be t*e h ACCESS v r 1 ^^ 

multiple compools may be created. ' ACChSS system may be used or 

tamest? b^e Tl^ mformatZ V6rS]0nS ° f *" ""^ ™ «*"** ^ 
further restrict (not expand) the ^visibZof ^ ^T' the n °™»» scoping rules to 
Plementation dependent somewha comn,l flf T h and C ° m P° o1 data - This system is i ra - 
boo, However, further ^^S^^S^£^^^ 

For^a^'tnlSwt^^:™- '° ^^ "*""" * * a ^pte compools. 
the example program complex % ^ arran ^ment of the compool data for 
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GJ"0_C: COMPOOL 
PITCH CMD, R0LL_CMD 



CONTROL 



N_T0_G: COMPOOL 
POSITION, VELOCITY 




NAVIGATION 



Here, the interfaces between GUIDANCE and CONTROL are in one compool, and the 
interface's between NAVIGATION and GUIDANCE are in another. The NAVIGATION and 
CONTROL programs would include only one compool each; in this way multiple compools 
tend to limit the possible influences of one compilation unit on another. In this case, no 
data is shared between NAVIGATION and CONTROL. 

The GUIDANCE program would have to include the templates for both compools. The 
order in which these templates are included is irrelevant: all compools are included at the 
same level. Thus, the previous diagram of scoping rules while compiling GUIDANCE still 
holds. Since there is always only one scope level outside of the main unit of compilation, 
the names of variables in one compool must not duplicate the names of variables in another 
compool if both are included by a single compilation unit. 

There are, of course, other considerations in structuring an application as a set of com- 
pilation units. For instance, it may be convenient to use only one compool so that all global 
data can be found in a single listing or so it will be contiguous in memory for telemetry pur- 
poses. The addressing modes of some computers may create an efficiency trade-off between 
the number of compools and their average sizes. Finally, in the next section, we will see that 
compools can be eliminated through the use of TASK blocks; this decision involves addi- 
tional trade-offs. 

Suppose, however, that the original configuration of three programs, one compool, and 
three comsubs, has been chosen. In this and the previous section we have described how the 
various compilation units are coded. The remaining problem is to compile them in the 
appropriate order. Since templates are automatically generated* when each block is com- 
piled, the "lowest level" compilation units must be compiled first. Given the table of tem- 
plates included per compilation presented earlier, an appropriate sequence for this program 
complex is: 



*If automatic template generation is not available, the order of compilation is irrelevant. 
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GNC POOL, LIMIT, FILTER, INTERPOLATE GUIDANCF 
NAVIGATION, CONTROL GUIDANCE, 

with'^is^p ^^ ■iS taa ° n T" bS , dete ™ i - d * ^Pection. Starting 
and finally "control'' programs susuoW ™***^« co ™ ubs > application programs, 
always produce an acceS^enS^nfe'xist "^ *< ^^ ^ tlm ^ 

1 ) Produce a list of templates included by each compilation (like the one given here) 

"ery P ge e nrra C tedT dUle ^ ^^ "° *"*>** ^^ «« *™ '«-*>- 

3) Remove the modules that have been compiled from each list. 

4) If not done, repeat step two. 

Tta diflkulUo ,1™, „„„ otcur ,„ we| , ^^ ptogram c „ ptaes 

sented in Chanter Seven Tf „*rt „f ^uimhal procedures and functions was pre- 

1 ) RIGID compools, which are similar in concept to RIGID structures- 

2) aT m U E la ™ N and L : tatementS ' ^ "" ^ HAL/S ^ «~"«* from 

3) ^£pX^ 

«^lS?u«f Sn^ maV ^ f ° Und m th£ Lan8U3ge SpeClfic — »" «« -PP^Pri- 

prog^Th^ittfhte 8 ^rir ^r use of task biocks instead ° f 

unit shown in the figure on the next page § ' * ^ aS the Si " gIe compilation 
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P: 

program; 

declare vector, 

POSITION, velocity; 
declare scalar, 

pitch_cmd, roll_cmd; 

LIMIT: 

function scalar; 



close limit; 

FILTER: 

procedure; 



close filter; 

interpolate: 

procedure; 



close interpolate; 

guidance: 

task; 



CONTENTS OF GUIDANCE PROGRAM UNMODIFIED 



CLOSE guidance; 

NAVIGATION: 

TASK; 



CLOSE NAVIGATION; 
CONTROL: 

task; 



close control; 
close p; 



Like programs, tasks are code blocks that receive control directly from the operating 
system. Tasks cannot be CALLed; they are used to implement real-time requirements in the 
same way as programs. In fact, the only distinction between programs and tasks is that tasks 
must always be nested in programs, and may not themselves contain further program or task 
blocks. Thus, the only change needed to convert a program to a task is in the header state- 
ment; the declare group, executable statements, and any nested procedures and functions 
remain exactly the same. 
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may access data detred at^e p'tam " *" * * ^ ^^ «"» fu " Cti - 

unit^^t^V^ST 8 ^ b , £ i r P ' emented Withln ' Si " g,e COm P ilati - 
ments instruct the optating v s em t~o Tan f "^ "" ^ """"^ These state " 

Priority, to stop cyc^S"^ SoS^iKS^J?^ ^ "* "* 
plement a real-time structure t Pn H« t„ m - ■ ■ U. S we " as P r °grams to irri- 

tated processes 7be coSdated £ ?ZT T^ ° f C ° mP ° 01 *"*' ^ a " OWS re- 
task b,ocks is that tf^^^^^^cS^Sl^ T^"^ °' ^ 

among the s^rTpro^Z " ^ ""^ Pr ° CeSSeS mUSt be distrib "^ 



Exercises 

1 1 .2A Consider the following block structure of 



a program complex : 



DECLARE SCALAR, A, B- 



P: PROGRAM; 



F: FUNCTION; 
DECLARE INTEGER, A, B 



P: PROCEDURE ; 
DECLARE I INTEGER 



From which blocks can the scalars A and B be referenced? 

1 1 .2B In the figure on page 1 1-2, it is shown that the compool GNC PODT k „„♦ • i a a 
in the compilation of the unit FILTER. Why notT GNC - POOL ls not lncIu ded 
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1 1 .2C Why is it desirable that the names of variables in a compool be unique with respect 
to the names of variables in other compools? 

1 1 .2D The text states that a reasonable order for compiling the various units for the exam- 
ple on page 1 1-00 is: 

GNC^POOL, LIMIT, FILTER, INTERPOLATE, GUIDANCE, 
NAVIGATION, CONTROL: 

For each of the following possible orders of compilation, state whether they will 
necessitate the hand coding of one or more templates, and why. 

a) GNC_POOL, INTERPOLATE, GUIDANCE, LIMIT, NAVIGATION, FILTER, 
CONTROL 

b) GNC_POOL, INTERPOLATE, LIMIT, CONTROL, FILTER, GUIDANCE, 
NAVIGATION 

c) GNC_POOL, INTERPOLATE, GUIDANCE, LIMIT, FILTER, CONTROL, 
NAVIGATION 

d) NAVIGATION, CONTROL, GUIDANCE, LIMIT, FILTER, INTERPOLATE, 
GNC POOL 



11.3 MULTI-PROGRAMMING CONSIDERATIONS 

We have used the term "process" to refer to either a program or a task; this terminology 
is used throughout the HAL/S documentation. The term multi-processing, however, has 
come to refer to the execution of software on a computer or set of linked computers which 
can literally execute more than one piece of code at a time, e.g. programming multiple 
physical processors. The term "multi-programming" refers to the appearance of this situa- 
tion: the use of either actual multiple processors or simulated multiple processors. In the 
latter case, the computer's central processing unit is "time-shared" or allocated to each 
active process foi a brief interval in succession. Reallocation of the CPU may result from 
initiation or completion of I/O, expiration of a time limit, or other factors. Since it is not 
possible to predict which HAL/S statement will be executing when a "process-swap" 
occurs*, programs must be designed so that a swap can safely occur at any point. 



*In fact, the timing may not be repeatable. 
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M 


MULTI : 


M 


program; 


M 


DECLARE SCALAR, 


M 


A, B, C] 


C 




C 




c 




M 


IF A NOT = THEN 


M 


do; 


M 


B = c / a; 


C 




C 




C 




M 


end; 


M 


T: 


M 


task; 


M 


a = o; 


M 


CLOSE t; 


" 


CLOSE MULTI ; 



Consider the above code. Suppose that MULTI receives control and executes the IF 
statement, finding A not equal to zero; then, for some reason, the processor is reallocated 
to task T. When T completes, MULTI will resume where it left off, and divide by zero. 
The problem is that two processes share data (viz. A) without any protection from an un- 
timely process-swap. If we could guarantee that the swap would never occur between the 
test for A=0 and the division by A, the problem would be solved. This can be done by 
means of the UPDATE block and locked data, as shown below. 



M 


BETTER : 




M 


program; 




M 


DECLARE A SCALAR LOCK(l); 




M 


DECLARE SCALAR, 




M 


B, c; 




C 






C 






C 






M 


update; 




M 


IF A NOT = THEN 




M 


do; 




M 


b = c / a; 




M 


end; 




M 


close; 




M 


T: 




M 


task; 




M 


update; 




M 


a = o; 




M 


close; 




M 


close T; 




" 


close better; 
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Three changes have been made in the BETTER program: the variable A has been de- 
clared with the attribute LOCK(l), and both uses of A have been enclosed in UPDATE 
blocks. The parenthesized "1" indicates the assignment of A to lock group one. The use of 
other lock groups is discussed later in this section. 

Data which is used by more than one process should normally be locked. Locked data 
can only be referenced from within an update block; the system ensures that only one up- 
date block which uses a given lock group is active at any instant of time. Thus, this capabil- 
ity is as good as preventing process swaps over a sequence of statements: a swap may occur, 
but the new process will not be permitted to execute an update block that pertains to the 
same lock group. An update block allows a process to obtain exclusive access to one or more 
locked variables. When an update block finishes, the locked variables become available to 
other processes, which also must access them via update blocks. 

An update block is executed when the sequential flow of control reaches it; in this re- 
gard it behaves like a simple DO . . . END group. However, from the viewpoint of scoping 
rules, an update block is equivalent to any of the other block types; it may even have its 
own DECLARE group. An update block behaves like a procedure with respect to error re- 
covery, except that the "calling" block is defined to be the immediately containing block. 
An update block may be nested in a block of any other type (except compool), and may 
contain further procedure or function blocks. There are some restrictions on the executable 
statements that may be used in an update block. The following are prohibited: 

1 ) I/O statements, 

2) Calls to procedures or invocation of functions, except for those nested in the update 
block, and 

3) Real-time statements except for SET, RESET, and SIGNAL (see Chapter Twelve). 

These statements are not allowed in update blocks, primarily because they potentially take a 
long time to execute. It is desirable to minimize the time spent in an update block because 
while an update block is executing, other processes may be stalled even if those processes 
are more critical (of a higher priority). 

It is almost always necessary to LOCK data which is used by more than one process. The 
compiler does not enforce this rule, and there are cases (e.g. read only data) in which the 
protection offered by locked data is not required. These cases are the exception rather than 
the rule. For instance, the GNC_POOL compool from the earlier example should be coded 



GNC_POOL: COMPOOL; 

DECLARE POSITION VECTOR LOCK(l); 

DECLARE VELOCITY VECTOR LOCK(l); 

DECLARE PITCH_CMD SCALAR LOCK(2); 

DECLARE ROLL_CMD SCALAR LOCK(2); 
CLOSE GNC_POOL; 
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Here, two lock groups (1 and 2) are used. Group 1 is used for the Navigation to Guid- 
ance interface, and group 2 is used for the Guidance to Control interface. The selection of 
lock groups is entirely up to the user; the only constraint imposed by the HAL/S system is 
an implementation-dependent maximum number of lock groups. It would be possible to use 
the same group for all locked data, and this may be convenient during initial development 
An appropriate assignment of lock groups, however, can lead to improved throughput This 
is because several update blocks can be active simultaneously provided that each uses a dif- 
ferent lock group, or set of groups, with no overlap. Hence, the overhead associated with a 
number of process swaps may be avoided. Furthermore, the amount of jitter in cyclic proc- 
esses may be reduced, since the chances of being stalled or suspended due to update block 
conflicts are lessened. In our example, Control will never have to wait for Navigation since 
their update blocks reference variables from different lock groups. 

The Guidance program might begin as in the figure below. As this code implies, it is 
sometimes preferable to copy a small amount of data (POSITION and VELOCITY) rather 
than extend the update block to include all of the computations involving these variables 
This minimizes the impact to other processes while still affording the protection against, for 
instance, processing a vector that has been only partially updated. 



INCLUDED 
TEMPLATE 



external ccmpcol; 

declare fc3iticn vector! 3) lock(l); 
declare velocity vectcr(3) lock! 1 ) ; 
declare pitch_ccm«a':d scalar; 
declare r0ll_c0:i,1an'3 scalar ihitial(o); 

CLOSE; 

VERSION I 

GUIDANCE: 
PSCGRAM; 

DECLARE VECTOR, 

VEL2, P0SH2; 

DECLARE X, Y, Z, OTHERS; 
COPY_IKFUTS: 
UPDATE; 

VSL2 = VELOCITY; 

PCSN2 = position; 
CLOSE COPY INPUTS; 



CLOSE guidance; 



This example also shows a labelled update block. The label is optional, and is used here 
only for self-documentation. 

There is one exception to the general rule that locked data may only be referenced from 
within an update block: A locked variable may be passed as an assign parameter to a proce- 
dure. This does not defeat the protection, however, since the corresponding parameter 
declaration must also specify the LOCK attribute; thus it in turn can only be referenced 
from within an update block or passed to further procedures. 
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The update block and locked data provide a means of safely sharing data among inde- 
pendent real-time processes; a similar mechanism for shared code is provided via EXCLU- 
SIVE procedures and functions. This type of protection is specified more simply. Just the 
appearance of the word EXCLUSIVE on a procedure or function header makes that block 
accessible to only one process at a time. To see how and why this feature is used, consider 
this function. 



mean: 

function! a) scalar exclu5ive; 

declare a array!*) scalar; 

declare total scalar initial! 0) automatic! 

do for temporary i = 1 to size! [a]); 
total = total * a ; 

I 

END; 

RETURN TOTAL / SIZE! [All; 
CLOSE mean; 



Suppose the MEAN function was not exclusive. If two processes invoked it, there could 
be a conflict in the use of TOTAL, even though it is only assigned from within MEAN. If 
one process had executed part of the loop when the other invoked MEAN and AUTO- 
MATICally re-initialized TOTAL, the first process would get an invalid result. Thus, the 
problem with sharing procedures and functions among processes is a shared data conflict on 
the local data declared in the shared block. This problem can be avoided by making shared 
code blocks EXCLUSIVE. No new construct is needed when an exclusive procedure or func- 
tion is invoked, but the system will prevent multiple simultaneous users of the block by 
stalling the second process that tries to invoke it. Exclusive routines are sometimes used for 
operational reasons having nothing to do with shared data. For instance, a procedure to do 
inertial measurement unit (IMU) calibration might be made exclusive simply to avoid the 
risk of calibrating more than one at a time. 

Another keyword that can be specified instead of EXCLUSIVE is REENTRANT. 
Neither one is the default : if a procedure or function is not EXCLUSIVE or REENTRANT 
then it cannot safely be invoked from multiple processes, but no protection mechanism is 
present. 

A REENTRANT procedure or function may be executed "simultaneously" by several 
processes. That is, if program A is executing a reentrant procedure, R, when it is interrupted 
by program B which also invokes R, when B completes and A resumes, there will be no ad- 
verse affect. 

Simply coding the keyword REENTRANT is not sufficient to make a block safely "re- 
enterable". The following rules must also be obeyed: 



1) Any block invoked by the reentrant block must also be reentrant, and 

2) Any local data must be declared to be AUTOMATIC whether it is initialized or not. 
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We have already stated that the difficulty in sharing a code block is really a conflict in 
the use of local data. Inside a procedure or function with the REENTRANT attribute, the 
effect of the A UTOMA TIC attribute is expanded. Each user of a reentrant procedure ac- 
cesses a separate copy of the local variables if they are automatic. Thus, any conflict is pre- 
vented. Parameters and TEMPORARY data cannot and need not be automatic. The MEAN 
function can be made reentrant simply by changing the EXCLUSIVE keyword to RE- 
ENTRANT. The necessary conditions for successful re-entrancy are described more fully 
in the HAL/S Language Specification. 

This chapter has defined the unit of compilation, and introduced the idea of a program 
complex, consisting of several real-time processes. It has described how global code and data 
can be made accessible to these processes, and how the adverse effects of "simultaneous" 
access can be avoided. In Chapter Twelve, we will describe the HAL/S statements for creating 
and controlling these processes and further discuss multi-programming concepts and their 
application to aerospace systems. 



Exercises 

1 1.3A A bank runs several programs to modify savings and checking accounts in a multi- 
programming environment. The procedure MOVE_SAVE_TO_CHECK, used to 
move money from a savings account to a checking account, is shared by all the pro- 
grams, and looks like this: 



MOVE_SAVE_TO_CHECK: PROCEDURE(ID, AMOUNT); 



SAVINGSSID = SAVINGSSID-AMOUNT; 
CHECKINGSID = CHECKINGSID+AMOUNT; 



CLOSE; 

SAVINGS and CHECKING are compool variables shared by all the programs. 

a) What potential error is present in this system? 

b) How can it be fixed? 

1 1.3B The bank in exercise 1 1.3A awards interest periodically and records each interest 
transaction for later printing on the customer's statement. The shared procedure 
AWARD_INTEREST performs this task: 

AWARD_INTEREST: PROCEDURE(ID); 
DECLARE INTEREST INTEGER; 
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INTEREST = SAVINGSSID INTEREST_RATE; 
SAVINGSSID = SAVINGSSID+INTEREST; 
CALL LOG^.INTEREST(ID, INTEREST); 



CLOSE; 

a) What potential error is present? 

b) How can it be fixed? 
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12.0 REAL-TIME STATEMENTS 

Most aerospace applications have a set of timing constraints which comprise a major 
facet of the entire problem definition. Meeting these constraints generally requires interac- 
tions with an operating system. 

Real-time operating systems for flight or process control applications can vary in many 
ways Nonetheless, certain capabilities, such as invoking a code block at a specified fre- 
quency are almost always provided. By examining several operating systems, it is possible 
to abstract a set of primitives (i.e. conceptual operating system functions) m which the vari- 
ous facilities can be expressed. Then the real-time requirements of an application can be 
described without referencing any particular operating system. The HAL/S statements de- 
scribed in this chapter are such a set of primitives, through which real-time requirements can 
be expressed in a machine-independent manner. 

HAL/S suggests the point of view that real-time constraints are an intrinsic part of the 
application; i.e. that timing is part of the algorithm rather than something to resolve "later' . 
As a result, real-time statements are integral to the language, and allow the programmer to 
express the entire algorithm directly and in one place. 

Real-time statements isolate the programmer from operating system details in the same 
way that arithmetic expressions isolate the programmer from details of machine instructions 
and data formats. A standard syntax for real-time operating system interactions greatly en- 
hances the portability of application programs. In particular, it allows flight programs to be 
simulated on ground-based computers; since the timing interactions are expressed in HAL/S, 
re-compiling is sufficient to translate the entire algorithm. 

The mechanisms for communication among real-time processes were described in 
Chapter Eleven; this chapter will discuss the set of HAL/S statements which control the 
initiation, termination and synchronization of processes. These statements are all execu- 
table; each implementation includes some technique outside of the HAL/S language for 
specifying one or more initial processes which can then use the real-time statements to 
create and control additional processes. 

12.1 THE SCHEDULE STATEMENT 

The figure on the next page shows the use of SCHEDULE statements to create new 
processes As the syntax implies, these statements create cyclic processes which will receive 
control from the operating system at the specified intervals. The intervals may be specified 
by any arithmetic expression in the REPEAT EVERY clause; the units are implementation 
dependent but generally these values are expressed in seconds. In any case, the units of time 
values throughout any particular implementation will be consistent. Seconds will be 
assumed in the rest of this chapter. Hence, the three processes scheduled by STARTUP 
would repeat at the rates of once, six times, and twenty times per second. 
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STARTUP: 
PROGRAM; 

guidance: 
task; 



close guidance; 
navigation: 

TASK; 



CLOSE NAVIGATION; 

CONTROL: 

TASK; 



CLOSE CONTROL; 

SCHEDULE NAVIGATION PRIORITY! 60 ) , REPEAT EVERY 1 n- 

SCHEDULE GUIDANCE PRIORITY! 70 ) , REPEAT EVERY 1 /'(,' 

r,n« H c?^,,^ HTR0L P «°*"Y[80>, ""EAT EVERY 1 / Zo\ 
ULUbc STARTUP; 



HAL/S does not impose any restrictions on the periods of cyclic processes created in 
this way; however, it may not be practical to provide complete generality in a flight oper- 
ating system. Simplifications such as rounding all time values to the nearest millisecond are 
to be expected in flight systems: The appropriate HAL/S User's Manual and any operating 
system documentation should be consulted. It has become common practice, however to 
develop and test HAL/S software on large ground-based computers (host computers) before 
executing on flight (target) equipment. These ground-based implementations generally do 
not impose any restrictions on real-time statements other than those described in the Lan- 
guage Specification, thus allowing a large range of operating system types to be simulated 
In this chapter, a complete implementation will be assumed, but the reader should not ex- 
pect to tind all of these capabilities in any particular flight operating system. 

^r, '!"* the aVErage execution time of the GUIDANCE, NAVIGATION and 
CUJN 1 KOL tasks are as shown in the table below. 



Task 

GUIDANCE 

NAVIGATION 

CONTROL 



Rate 

6/sec. 

1/sec. 

20/sec. 



Average Time 

50 ms 
100 ms 

25 ms 



Total Time 

.3 sec. 
.1 sec. 
.5 sec. 



Total Time = 



.9 sec. 
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Since these tasks together occupy only 9/10 of a second per second, it is clear that the speci- 
fed rates are attainable. However, it would be extremely difficult to ™P' e ™»i hl fu- 
ture ushfg CALL and DO CASE statements as was done in Chapter Seven. The difficulty can 
be seen by examining a time-line of these tasks' execution: 



NAVIGATION 


□ ^ 


GUIDANCE 


□ □ □ □ □ □ □ 


CONTROL 


DDDDDDDDDDDDDDDDDDDDD 

. 1 cornnd ■ 1 



The trouble is that no matter how the initiation of these processes is phased, a time w.l 
occur when more than one process is due to execute. If only CALL statements were used .t 
would be necessary to either tolerate a substantial jitter in the execution frequency of each 
task, or to break each task into many small procedures which would be called in a very com- 
plex sequence. 

Bv the use of SCHEDULE statements, as shown in the example STARTUP, the timing 
conflL can be automatically resolved. As we have already stated, the operating syste in can 
re-allocate the central processor at any point in the execution of a process, subject to the re- 
rS resulting from update blocks and exclusive procedures. // t»o processes are due 
TZZeously, tie Hi g Hest priority process receives control. The purpose -f ^ pno^y 
clause in the SCHEDULE statement is to allow the system to resolve conflict mg requests 
for the hardware resources. In the example, GUIDANCE becomes ready ^CONTROL 
is executing about half the time. Since its priority is less than that of CO NTROL 
GUIDANCE is stalled until CONTROL completes. Every time GUIDANCE execute* 
CONTROL comes due in the middle; here again, the priorities govern the situation and 
GUIDANCE is stalled (interrupted) while CONTROL runs. When CONTROL comple e , 
GUIDANCE resumes at the point of interruption. As long as the shared data protection fea- 
tures of Chapter Eleven are used, this system action has no impact on the codmg of either 
task, although some overhead is associated with the process swap. 

Since CONTROL can interrupt either of the other two processes, the jitter in its period 
of execution wUl be very small. Aside from the system overhead involved m swapping proc- 
1s deC m the exertion of CONTROL can result only from ™°^^°_ 
locked data or an exclusive procedure by one of the other processes. GUIDANCE can _be de 
ayed by the unavailability of a shared resource or by the execution ^ CONTROL 
NAVIGATION can be interrupted by either of the others. Consequently, NAVIGATION 
will generally run in very short bursts spread out through the entire second. 
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The example actually consists of four processes: the three tasks and the STARTUP pro- 
gram. The priority and other characteristics of STARTUP are determined externally, either 
through a SCHEDULE statement in another compilation unit or by default during system 
startup. Usually a HAL/S real-time executive will start a single program as a non-cyclic 

cta C pt,™ 1S Pr0gram ,? USt the " SCh6dule aU ° ther programs and tasks - Th e Priority of the 
b 1 AK 1 UP program affects the sequence in which the tasks are initiated If STARTUP is at 
priority fifty, when it schedules NAVIGATION at priority sixty, NAVIGATION becomes 
the highest priority ready process and therefore receives control immediately STARTUP 
is stalled until NAVIGATION relinquishes the processor. This happens when NAVIGATION 
reaches its CLOSE statement; since it was scheduled to run only once per second it enters 
an inter-cycle wait and ceases to be a ready process. This makes STARTUP again the highest 
priority ready process, so it receives control and executes the second SCHEDULE statement 
The same situation is repeated with GUIDANCE and CONTROL. 

The effect of these SCHEDULE statements, then, seems very much like a set of CALL 
statements. One major difference is that the GUIDANCE, NAVIGATION and CONTROL 
tasks will continue to execute at the specified rates after STARTUP reaches its CLOSE 
statement, even though STARTUP executes only once. Furthermore, each HAL/S real 
time process has its own error environment. Any error handlers in STARTUP have no effect 
whatsoever on the action taken if an error occurs in one of the tasks. Finally the situation 
would be different if STARTUP had a higher priority. 

With STARTUP at priority fifty, the following time-line describes the first few cycles : 

b ' s a 



STARTUP 



NAVIGATION 



GUIDANCE 



CONTROL 



s s u 



□ □□□ 



That is, Navigation and Guidance each complete a full execution uninterrupted before the 
higher priority task(s) are scheduled. This may well simplify the system. If STARTUP was at 
priority one hundred, however, the time-line would be completely different: 
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STARTUP 



NAVIGATION 



GUIDANCE 



CONTROL 



□ 



D£ 



1 U 



nan d d □ 



In this case, STARTUP executes all three SCHEDULE statements before any other process 
receives control; hence, the first cycle is not substantially different from any other. 

When STARTUP reaches its CLOSE statement, it enters the wait state. This is similar to 
an inter-cycle wait, but does not result from timing considerations. A program remains 
active as long as any of its tasks are active, due to the possibility of shared data and utility 
routines at the program level. It is said to be "waiting for dependent processes" ; the mem- 
ory allocated to the program cannot be released. If the tasks are subsequently cancelled (i.e. 
cease to cycle), the program completes as well; it is neither ready nor waiting, but simply 
done and forgotten. In the terminology of the Language Specification, it is no longer "in the 
process queues". 

The minimum form of the SCHEDULE statement contains only a process name and a 
priority, as in: 

SCHEDULE STARTUP PRIORITY(IOO); 

If no repetition option is specified, the program or task executes only once. The REPEAT 
EVERY specifies cyclic execution with a fixed interval between the beginnings of the 
cycles. The REPEAT AFTER option is very similar, but the fixed interval is between the 
end of one cycle and the start of the next, as illustrated in this figure. 




DT 



□ D 



DT » 1 * DT M-* DT-H 

HI □ □ 



I-*— DT *-l k*-DT- 



□ 



D 






□ 



D 
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The REPEAT AFTER form specifies the length of the inter-cycle period of waiting. If RE- 
PEAT AFTER is specified, the average time between executions is the sum of DT and the 
average execution time whereas it is simply DT in the case of REPEAT EVERY. The primary 
advantage of the REPEAT AFTER form is that a cycle overlap error cannot occur. If proc- 
ess A in the previous example executes more than DT seconds in a particular cycle, it will 
come due again before it completes. This results in a runtime error for which no ON ERROR 
handler can be written. Process B above can execute for any length of time without an over- 
lap, since the start of the next cycle is delayed until DT after the previous cycle completes. 

The primary disadvantage of the REPEAT AFTER option is that it may make system 
verification more difficult. Use of this option tends to make the time-line of the entire sys- 
tem unrepeatable. If the outputs of a control system depend on the sequence in which vari- 
ous processes are executed, a huge number of runs may be required to show that no unac- 
ceptable transients -are introduced by timing fluctuations. On the other hand, if REPEAT 
AFTER is used for less critical processes, the entire system may respond better to overload 
conditions. 

If REPEAT is specified without either AFTER or EVERY and a time: 

SCHEDULE X PRIORITY(17), REPEAT; 

the process is immediately restarted at the end of each cycle. This is equivalent to ".RE- 
PEAT AFTER 0;". This option is generally used for processes intended to use "left over" 
time for self-test, etc., and for processes which issue WAIT statements. Use of the simple 
REPEAT option is not substantially different from coding an infinite loop around the task 
body and scheduling it as a "one-shot". The effect of the CANCEL statement is different, 
and under some implementations error recovery may differ as well. 

The SCHEDULE statement has several other options in addition to the three REPEAT 
forms. These options allow the start of a process to be delayed until a specific condition is 
met, and allow cancellation criteria to be specified at the time a process is scheduled. Both 
begin and end conditions and a repetition option may be used in a single SCHEDULE state- 
ment, as shown below: 



M 


x: 


M 


program; 


M 


p: 


M 


task; 


M 


close p; 


M 


SCHEDULE P 


M 


CLOSE x; 



IN 5.4 PRI0RITY(49>, REPEAT EVERY .03 UNTIL RUNTIME + 100; 
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This statement will cause the program or task P to be initiated with priority 49 at 5.4 
seconds after the execution of the SCHEDULE statement. Subsequently, it will be ex- 
ecuted* every .03 seconds for 94.6 seconds and then be terminated. 

The IN and UNTIL options allow any arithmetic expression. This expression is a time 
value in the same units as in the repeat options, generally seconds. The IN option requires an 
interval of time whereas UNTIL expects an absolute time; this is the same as the normal 
English usage of these words. Since the RUNTIME function returns the current value of the 
system clock, "IN 5.4" is equivalent to "AT RUNTIME+5.4", a form which is also accept- 
able to the compiler. 

All of the arithmetic expressions in a SCHEDULE statement are evaluated only once, 
when the statement itself is executed. Subsequent changes to the variables used in these ex- 
pressions do not affect the scheduled process. 

The various scheduling options must be specified in the correct sequence, and only ^one 
of a given type is allowed in a single statement. The sequence of phrases in a SCHEDULE 
statement is: 

1 ) SCHEDULE and a process name, 

2) An optional begin condition: IN, AT or ON, 

3) A priority, 

4) An optional REPEAT clause, 

5) An optional end condition: UNTIL or WHILE. 

The ON and WHILE conditions reference event variables, which will be described in Section 
1 2.2. First a few special cases of the time options need mention. 

Normally the IN or AT time used in a schedule statement is in the future. If the speci- 
fied time has'already passed, the process is readied immediately. There is one exception: if 
AT is used with the REPEAT EVERY option and the time has already passed, phased sched- 
uling is performed. The first execution of the process occurs at the time given by the sum of 
the "AT" time and the period (REPEAT EVERY delta) of the process. This allows a syn- 
chronous" real-time structure, which is further described in the Language Specification. 
Phased scheduling tends to minimize the number of processes that are ready at any one 
time. 

Normally the UNTIL time specified is in the future. If it is already passed, then the 
SCHEDULE statement has no effect. The UNTIL clause can never stop a process in mid- 
execution. If the UNTIL time arrives while the process is executing, it is allowed to finish its 
current cycle. The UNTIL and WHILE clauses can only stop a process before its first execu- 
tion or during an inter-cycle wait. When the end condition specified in a SCHEDULE state- 
ment is satisfied, the process is CANCELled rather than TERMINATEd, a distinction which 
will be explained in Section 12.3. 



♦Assuming that its priority is sufficient to obtain necessary resources. 
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Exercises 

12.1 A Draw a time-line for one second's execution of the processes scheduled below. As- 

sume that each process executes for 80 ms per cycle. 

SCHEDULE A PRIORITY(IOO), REPEAT EVERY 1/5; 
SCHEDULE B PRIORITY(99), REPEAT EVERY 1/3; 
SCHEDULE C PRIORITY(98), REPEAT EVERY 1/2; 

12. IB Draw a time-line for the processes in exercise 12.1 A, but with all occurrences of 
EVERY changed to AFTER. 

12.1C Given two tasks, X and Y, both of which use one half second per iteration, write 
schedule statements that will run X continuously for two seconds, then alternate X 
and Y for two seconds, and then run Y half the time for two more seconds. Use only 
two schedule statements. 

12.2 EVENT VARIABLES 

The three forms of begin-condition in a SCHEDULE statement are: 

IN "arithmetic expression", 
AT "arithmetic expression", and 
ON "event expression". 

Two of these forms describe a begin-condition in terms of time; the third form, ON, lets 
scheduling depend on conditions or occurrences which do not happen at a predetermined 
time. Suppose, for example, that the GUIDANCE, NAVIGATION and CONTROL tasks of 
the previous example are used during launch of a spacecraft, but when orbit is achieved, 
GUIDANCE and CONTROL are to be replaced with another task, FREEFALL. If the time 
at which orbit will be reached is known in advance, this can be done with the AT and 
UNTIL clauses already presented. Otherwise, it is appropriate to declare an event variable 
to correspond to this occurence as in: 

DECLARE ORBIT EVENT; 

Then the desired transition can be specified in the SCHEDULE statements as shown in the 
next example. When an event variable is signalled, as in: 

SIGNAL ORBIT;, 

all active event expressions which reference that event are evaluated. In this case three active 
event expressions reference ORBIT. When the SIGNAL statement causes ORBIT to become 
TRUE, these expressions are all satisfied: GUIDANCE and CONTROL are cancelled via the 
UNTIL clauses, and FREEFALL is started via the ON clause. 

An active event expression is a boolean combination of event variables used in a real- 
time statement which has not yet been satisfied. Event expressions are formed in the same 
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, ho AMn OR and NOT operators. However, all variables 
way as boolean ==; ^ AND OR^ and NOT ^p ^ ^^ ^ ^ ^ 



STARTUP: 
PROGRAM; 

declare orbit event; 

guidance: 
task; 



close guidance; 

navigation: 

task; 



close navigation; 

CONTROL: 



close control; 

freefall: 

task; 



CLOSE FREEFALL; -„,-.,. rumv i n- 

SCHEDULE NAVIGATION PRIORITYC60 >, H"^ EVERY !•«■ 
SCHEDULE GUIDANCE PRIORITYf 70) , REPEAT EVcRY 1 / 6 UNTIL O.BIT 
sr-HFrilllE CONTROL PRIORITY180 ) , REPEAT EVERY 1/20 uniil uxd±i. 
SCHEDULE FREEFALL ON 0R3IT PRI0RITY( 75) , REPEAT EVERY 1/10, 

close startup; 



When an event expression is used in the UNTIL or WHILE clause of a SCHEDULE state^ 

ST: ^XSSSlLE and WAIT stents, and always se.e as a condi- 
tion under which the state of some process is to be changed. 

There are three types of event variables: latched and unlatched declared events and 
proce": Tevents 1.1 events have only two states, ON and OFF; the distinction between 
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latched and unlatched events is that an unlatched event does not retain its state. ORBIT is 
an unlatched event since the LATCHED keyword was not specified in its declaration It is 
initially OFF or FALSE. When the SIGNAL statement is executed it becomes momentarily 
TRUE, just long enough for all active event expressions which reference it to be evaluated. 
SIGNAL is the only statement which can affect the value of an unlatched event. 

As stated above, an event expression can be a boolean combination of event variables. 
Since an unlatched event is only true during the execution of a SIGNAL statement, and 
only one event can be signalled at a time, the logical conjunction (A & B) of two unlatched 
events will never be satisfied. This is one reason for using LATCHED events, as illustrated 
below: 



p: 

program; 

declare orbit event latched initial! false ) ; 

,-MT^f E Ef;GINE -° f F E«NT LATCHED INITIAL! FALSE ) ; 

o'JIUANCE t 

TASK! 

close; 



SCHEDULE GUIDANCE PRIORITYt70 ), REPEAT EVERY 1 / 6 UNTIL ORBIT AND ENGINE.OFF; 



CLOSE P; 



Here, GUIDANCE will continue to cycle until both ORBIT and ENGINE_OFF are true at 
the same time. This can happen in several ways. The sequence: 

SET ORBIT; 

SET ENGINE_OFF; 

will cause GUIDANCE to be cancelled. When a latched event variable is SET it remains true 
until it is RESET. A latched event may also be SIGNALled. In this case, the state of the 
event is momentarily inverted for the duration of the SIGNAL statement, just as in an un- 
latched event. Thus, 

SET ORBIT; 

SIGNAL ENGINE_OFF; 

will also cause GUIDANCE to be cancelled, as will: 

SET ENGINE_OFF; 
SIGNAL ORBIT; 

However, if one event is first signalled and then the other set, there will be no time at which 
both are true, and GUIDANCE will continue. The advantages of using unlatched events will 
become clearer when the WAIT statement is introduced. 
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The third type of event is a process event. These events are not declared by the program- 
P r but automatically defined to correspond to the state of each program or task. The 
"rocess ven^has the Lie name as the program or task, and is true from the time the proc- 
: s chevied until it completes its last cycle. The process event of a ? ^^ 
mains true during the inter-cycle wait, and during any other stall or wait state. Process 
Tents Snot be SET, RESET or SIGNALled; they simply reflect the state of the process of 
the same name. 

Process events can be used to solve a problem in the GUIDANCE -d CONTROL to 
FREEFALL transition of the previous example. Since a process cancelled vm the UNTIL 
clause of its SCHEDULE statement is allowed to finish its current cycle, FREEFALL will 
slart before the other tasks have finished if they are active at the time the event expression 
becomes true. This difficulty is corrected in the following code. 



m startup: 

m program; 

M DECLARE ORBIT EVENT LATCHED! 

M GUIDANCE: 

M TASK; 



M CLOSE guidance; 
m navigation: 
m task; 



close navigation; 

CONTROL: 

task; 



close control; 

freefall: 

task; 



CLOSE FREEFALL; ,..,.„„ , „. 

ISle SSS^^^^T^^^^J; 'Est-SS! 

ISle SlT^^ — «« > ' - 
close startup; 



The FREEFALL process is initiated when ORBIT is true and both other tasks have com- 
pleted their last cycles. In this case, ORBIT must be a latched event and it should be SET 
rather than SIGNALled. 

The effect of SET, RESET and SIGNAL on latched and unlatched events « summarized 
in the table on the next page. As shown SET and RESET leave a latched event in the TRUE 
or FALSE state respectively. When a latched event is SIGNALLed, its state * momentarily 
LLtd UnSed events are always FALSE, except when SIGNAL makes them momen- 
tarily TRUE. 
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Set 


Reset 


Signal 


unlatched event 


illegal 


illegal 


Take all event actions 
depending on TRUE 
state of <event var> 


latched 
event 


old 
value 
is 
FALSE 


1 . Set event state 
to TRUE 

2. Take all event 
actions depending 
on TRUE state of 
< event var> 


no action 


Take all event actions 
depending on TRUE 
state of < event var> 


latched 
event 


old 
value 
is 
TRUE 


no action 


1 . Set event state 
to FALSE 

2. Take all event 
actions depending 
on FALSE state 
of <event var> 


Take all event actions 
depending on FALSE 
state of <event var> 



Events can also be tested in non-real-time statements; e.g. 
IF ORBIT THEN DO; 

Booleans and events may be freely mixed in boolean expressions. However, when used in 
any statement other than SCHEDULE or WAIT, an unlatched event is always false. 

The SCHEDULE statements allow begin and end conditions to be specified in terms of 
either time or event expressions, but the repetition option can only be specified in terms of 
a constant interval of time. The WAIT statement allows a piece of code to execute at irregu- 
lar intervals. 

Suppose a process is required to execute whenever ORBIT is false and ENGINE_OFF is 
true. The schedule statement can be used to initiate a process the first time this combination 
is true, as in: 

SCHEDULE RE_IGNITE ON NOT ORBIT 
AND ENGINE_OFF PRIORITY(999); 

A convenient means of allowing this process to execute every time the event expression is 
true is shown on the next page. 
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P: 








program; 








DECLARE 


event, 








Et;GIHE_ 


:ff, 






o?bit latched; 




SCHEDULE 


RE_IGNITE 


FRICRITY(999); 


RE_IGNITE: 








task; 








DO WHILE 


true; 






WAIT 


FOR ENGINE 


_OFF 4 


-orbit; 


end; 








close re_ignite; 






close p; 









When the WAIT statement is executed, if the event expression is true, execution continues 
at the next statement. If the event expression is false when the WAIT statement is executed, 
the process is stalled until the expression becomes true as a result of event variable changes 
by other processes. If the event expression in a WAIT statement is not immediately satisfied, 
it is put into the pool of active event expressions; the process containing the WAIT state- 
ment is stalled (taken out of the READY state) and the highest priority ready process re- 
ceives control. The process issuing the WAIT can only continue when the specified condi- 
tion is satisfied. 

Suppose that ORBIT and ENGINE_OFF are both latched events. If they are SET and 
RESET from some process other than RE_IGNITE, it is possible that RE_IGNITE will exe- 
cute too many times. Since it is of such a high priority, RE_IGNITE may finish processing 
and re-execute the WAIT statement before the other process has a chance to RESET 
ENGINE„OFF. In fact, if RE_IGNITE is the highest priority process and contains no other 
WAIT statement, it will continue to loop to the exclusion of every other process. If the RE- 
SET statement can be placed in RE JGNITE right after the WAIT statement the problem is 
solved, but the situation could be avoided altogether by using a SIGNAL statement instead 
of SET. Since SIGNAL leaves an event in the true state just long enough for all active event 
expressions to be evaluated, there is no possibility that RE_JGNITE will re-issue the WAIT 
statement while the event is still true. The SIGNAL statement is generally used when an 
event is expected to change its state repeatedly, as there is no need to RESET* it in prepara- 
tion for the next use. Note, however, that if the process which is to wait for the event has 
not already executed its WAIT statement, the SIGNAL has no effect. 



*Signal momentarily inverts the state of a latched event. If a process waits for the false state, SIGNAL 
avoids the need to SET the event before the next cycle. 
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Consider the two communicating processes below: 



M 


P: 


M 


program; 


M 


DECLARE DO_SOMETHING EVENT; 


M 


DECLARE DONE EVENT LATCHED INITIAL! OFF )! 


M 


SCHEDULE T PRIORITY! 50 ); 


M 


SIGNAL DO SOMETHING; 


M 


WAIT FOR DONE; 


M 


T: 


M 


task; 


M 


WAIT FOR DO SOMETHING; 


n 


SET DONE; 


n 


CLOSE t; 


M 


CLOSE p; 



In this example, if the priority of P is greater than 50, neither process will ever complete. If 
the priority of P is less than 50, T will execute its WAIT statement before DO_SOME- 
THING is signalled, and both processes will complete. If P is the higher priority process, it 
must pause before signalling DO_SOMETHING to give T a chance to execute its WAIT 
statement. This could be done by adding: 

WAIT .1; 

just before the SIGNAL statement. 



Exercises 

1 2.2A Why does the SCHEDULE statement have both AT and ON clauses? 
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1 2.2B In the program segment below, at which of the points A-D is the event expression Q 
active? 



DECLARE Q EVENT LATCHED INITIAL(OFF); 



A: 



SCHEDULE TASK1 ON Q PRIORITY(57); 



B: 



SIGNAL Q; 



C: 



SET Q; 



12 2C Let X be a latched event which is initially OFF. How is SIGNAL X; different from 
the sequence SET X; RESET X;? 

12 2D Re-do problem 12.1C with the two transitions based on events: assume that un- 
latched events, TRAN1 and TRAN2 are signalled at appropriate tunes by another 
process. 
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1 2.2E Is a latched or unlatched event more appropriate in each of the following situations: 

a) As the single operand of an ON clause. 

b) As part of a complex event expression. 

c) In a boolean expression. 

d) In the RESET statement. 

e) In a WAIT statement inside a loop. 

12.2F Write code that will cause the state of one event variable, COMPL, to always be the 
inverse of another event, MASTER, which is set and reset by some other code. Do 
not examine the state of MASTER more often than necessary. 

12.3 OTHER REAL-TIME STATEMENTS 

The SCHEDULE statement creates a process of some priority and possibly with some 
repetition rate. Begin and end conditions can be specified in terms of either time or event 
variables. These event variables may be SET, RESET and SIGNALled by other processes. 
The WAIT statement allows a process to voluntarily release control pending some future 
condition. This condition, like those in the SCHEDULE statement, may be either a combin- 
ation of event variables or the passage of time. 

In addition to the time option of the WAIT statement, this section presents the CAN- 
CEL and TERMINATE statements, which allow a process to discontinue itself or some 
other process, and the UPDATE PRIORITY statement, which is used to modify the priority 
of a process which has already been scheduled. 

The WAIT statement has three forms: 

WAIT FOR "event expression"; 
WAIT "delta time"; and 
WAIT UNTIL "time"; 

The effect of the statement is the same in all cases: If the specified condition is already true, 
execution continues, otherwise, the process is stalled until the condition becomes true. 

As in the SCHEDULE statement, the expressions "delta time" and "time" may be any 
arithmetic expression; both are in the same units as time values in other real-time state- 
ments. The two forms distinguish between a particular time, and an interval of time, which 
is the same distinction as between the IN and AT options of the SCHEDULE statement. As 
before, 

WAIT .1; 

is equivalent to: 

WAIT UNTIL RUNTIME + .1; 
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These forms of the WAIT statement are generally used in "sequencing" applications, for in- 
stance to fire a vehicle control jet for a given duration or to wait between commands to 
some slow moving mechanical device. They are also useful in testing, to generate a scenario 
of simulated inputs as a function of time. 

Note that the arithmetic expressions in the time-oriented WAIT statements are evaluated 
only once when the WAIT statement is executed. The expression "RUNTIME + .1 does 
not keep sliding into the future, but is converted to a scalar value when the WAIT statement 
is executed. It is only event expressions that are repeatedly evaluated by the system. 

A further example of the WAIT statement, is shown below. Here, the acceleration 
of a vehicle is controlled to get from HERE to THERE in minimum time by accelerat- 
ing halfway and deaccelerating halfway. Steering is ignored, as is any initial velocity. 



p: 






program; 






DECLARE 


VECTCH, 






HERE, 


there; 


DECLARE 


MAX THRUST CONSTANT! 1234 ). 




VEHJ1ASS 


CONSTANT! 5678); 


DECLARE 


SCALAR , 






A, S, 


t; 


DECLARE 


BOOLEAN, 






ACC CMD, DECC_CMD; 


A = MAX. 


_THRUST / 


VEH_MASS; 


S = ABVALIHERE - 


THERE) / 2J 


T = S3RTI2 A S); 




ACC CMD 


= on; 




WAIT t; 






ACC_CMD 


= off; 




DECC_CMD = ON; 




hait't; 






DECC_CMD = OFF; 




close p; 







J 



In this example, "WAIT T;" introduces a delay of T seconds between setting ACC_CMD 
on, and back off. 

The WAIT statement temporarily deactivates a process; a process can also be perma- 
nently deactivated. A non-cyclic process (no REPEAT clause in the SCHEDULE statement) 
terminates by executing its CLOSE statement, by causing a fatal runtime error, or as a result 
of the TERMINATE statement. A cyclic process can cease executing as a result of the 
WHILE or UNTIL clause used when it was scheduled, the occurrence of a fatal error, or the 
execution of a CANCEL or TERMINATE statement. 

The CANCEL and TERMINATE statements are similar in form, each consisting of a 
keyword (CANCEL or TERMINATE) followed by a list of process names, for example: 

CANCEL GUIDANCE; 

TERMINATE STARTUP; 

CANCEL NAVIGATION, CONTROL, P, T; 
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The TERMINATE statement causes immediate, abrupt cessation of the listed processes. 
Since it may stop a process at any point in its execution, its use is strongly discouraged. The 
HAL/S Language Specification imposes additional rules on the use of TERMINATE. The 
only use of TERMINATE which is generally considered acceptable is: 

TERMINATE; 

When no list of processes is supplied, self-termination is implied. This form of the TERMI- 
NATE statement can serve as a "super return" statement at the PROGRAM or TASK level. 
Since the process "knows" its own state, this form is relatively safe. When other processes 
are terminated, it is important to consider all possible points at which they might be exe- 
cuting to ensure safety. 

The CANCEL statement allows an orderly shut-down of the specified processes. Like 
the WHILE and UNTIL clauses of the SCHEDULE statement, CANCEL can only stop a 
process before its first cycle or during the inter-cycle wait. This allows processes to be 
stopped without the risk of leaving partially updated results. 

Since a cancelled process is allowed to finish its current cycle, the CANCEL statement 
may not have immediate effect. Process events can be used to key on the completion of the 
last cycle before scheduling a "replacement" process, as shown below: 

CANCEL X, Y, Z; 

WAIT FOR "IX & 1Y & 1Z; 

SCHEDULE XYZ_NEW PRIORITY(IO), REPEAT; 



Exercises 

12.3A Surround the statement "WRITE(6) RUNTIME;" with other statements so that the 
values 1/10, 1/8, 1/6, 1/4, 1/2, and 1 will be sent to channel 6. Use no other I/O 
statements. Do not worry about numeric accuracy. 

12.3B Given: 

P: PROGRAM; 

DO WHILE TRUE; 

/*something*/ 
END; 
CLOSE; 

SCHEDULE P PRIORITY(IOO); 

What does "CANCEL P;" do" How should this be done? 
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End of Chapter Problems 

Part of the specification of the flight software for the XYZ aircraft might read as 
follows: 



Category 



Rate 



Functions 



1/2 R, 



1/4 R, 



1/8 R, 



input processing 
elevon commands 
telemetry 



rudder commands 
guidance 



flight control gains 



navigation display 
updates 



The software functions are divided into four categories as shown. The category 
A software is to be executed at the highest possible rate consistent with the through- 
put of the machine and the total workload. The category B software shall execute 
one-half as frequently as category A; the rate of category C shall be half that of 
category B, and the rate of category D shall be one-half that of category C (i.e. one- 
eighth the rate of category A)." 

12A Implement the above example via the real-time statements. Explain your choice 
of priorities. Fix rate A at one-tenth. 



1 2B Re-do the problem under the original "as fast as possible" groundrule. 
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13.0 SYSTEM PROGRAMMING AIDS 

The information presented in earlier chapters applies equally well to any HAL/S com- 
piler Except for numeric precision, the examples shown will produce the same results under 
any complete implementation of the HAL/S language. This transferrability was one of the 
major design goals of the language; it decreases the dependence on the availability of flight 
hardware and encourages the re-use of debugged software. 

In order to provide this degree of machine-independence, the language isolates the user 
from details of the underlying hardware; e.g., the number of bits in a scalar. The arithmetic 
data types, Integer, Scalar, Vector and Matrix correspond to mathematical abstractions. For 
most users, the mapping of these data types into the data formats supported by a given 
computer is of no concern. The operations that can be performed on these data types are 
defined in a way that is completely independent of any computer architecture. The character 
string, boolean, and event types also are defined abstractly: users do not normally need to 
know how much memory is occupied by a boolean or what character code (ASCII, EBCDIC, 
etc.) is used internally. Since these low level decisions are made in the compiler, HAL/S 
code is usually machine-independent. 

While most flight code implements algorithms that are defined in machine-independent 
mathematical or logical terms, small portions of many projects are specified in terms much 
closer to the computer in use. Examples of this low level code are formatting sensor data, 
handling interrupts, managing real-time clocks, commanding special purpose avionics, etc. 
These functions are intrinsically machine-dependent; their algorithms are designed in terms 
of hardware capabilities and concepts. Thus, there is little chance of sharing this type of 
software between different projects. Transferrability of "systems programs" is not a prac- 
tical goal, given the diversity of flight hardware. 

Even though system software is generally specific to a given computer, the other advan- 
tages of high order languages still apply. Also, the use of a single language for both applica- 
tion and system programs tends to simplify interfaces, documentation and training. Hence, 
HAL/S provides some features for writing system software, including the use of pointers 
and low-level bit manipulation. 

These features are most frequently used in software that is intrinsically non-transfer- 
rable. The restriction of bit manipulation to the BIT data type, and similar constraints on 
addresses, separate the possibly machine-dependent systems programs from applications 
code. 

13.1 BIT STRINGS 

A bit string is a series of binary digits. Each digit or bit behaves like a boolean; the 
forms, BOOLEAN and BIT(l), are completely interchangeable. A bit string of length four 
can be created via: 

DECLARE FLAGS BIT(4); 

Like vectors, character strings and other aggregate data types, bit strings may be sub- 
scripted to select single components or partitions. The first, leftmost, or most significant bit 
of FLAGS is denoted FLAGSS 1 . The last two bits would be referenced as FLAGS$(2 AT 3). 
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The catenation operator (I I) also applies, though bit strings differ from character strings in 
that bit strings are of fixed length. The AND, OR and NOT operators can be applied to 
entire strings as well as their boolean components. 

The length of a bit string must be less than an implementation-dependent limit. This 
limit generally equals the maximum number of bits that can be loaded into a general pur- 
pose accumulator or register on the target machine. 

Operations on single bit components of a bit string are generally slower than correspond- 
ing operations on BOOLEANs or entire bit strings. The machine instructions to perform 
these operations also tend to occupy more space.* 

Because of the inefficiency of operating on a component of a bit string while leaving the 
other bits alone, bit strings should not routinely be used to pack the individual booleans of a 
program into a single word. One type of situation in which bit strings can be used effectively 
is illustrated below: 



DECLARE I INTEGER! 
DECLARE B BITC8); 
DECLARE BOOLEAN, 

CI, C2, C3, C4, 


C5, 


C6, 


C7, 


C8; 


DO WHILE ON; 

00 FOR I = 1 TO ioo; 










if b = hex' 00' then 
do; 










end; 

ELSE 

do; 










end; 
end; 










IF Cl THEN 










B = on; 
1 










IF C2 THEN 










B = on; 

2 











This is because most memory units aie designed to transfer many bits (a byte or word) to or from the CPU 
in one operation. Modifying a single bit generally requires the use of logical or shifting instructions to 
preserve the state of adjacent bits. 
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E 
M 


IF CS THEN 


E 
M 
S 


B = on; 
8 


M 


end; 



In this code, eight booleans are packed in a bit string called B. This makes the statements, 
BSl=ON, BS2=ON, etc., less efficient than references to the individual booleans, CI, (_Z, 
etc. However, the statement: 

IF B = HEX'OO'THEN DO; 

is much more efficient than: 

IF NOT (CI I C2 I C3 I C4 I C5 I C6 I C7 I C8) THEN 
DO; 

Since this statement is executed much more frequently than the individual assignments, the 
savings from making a simpler test more than offsets the cost of the component assrgnments. 
Thus, one application of bit strings is to collect booleans for testing as a group. 

The example above tests whether all eight bits are false. Other compound conditions can 
be tested via the AND and OR operators. For instance, the following statement tests for the 
odd-numbered bits equal to zero: 

IF (B & BIN' 101010 10 10') = HEX'00' THEN 
DO; 

The test that bits 1 and 3 are on and 2 and 5 are off can be coded as: 



IF (B & BIN'l 1101000') = BINT0100000' THEN 
DO; 



1 3-4 System Programming Aids 

When booleans are collected in a bit string, it is still possible to give symbolic names to 
individual components via REPLACE statements, as in: 

REPLACE MEANINGFULNAME BY "BS3"; 

The only comparisons that may be made between bit strings are equality and non- 
equality (- and ~l =). As with arrays, the components are compared in pairs; two bit strings 
are equal if all pairs match, and unequal if any pair mismatches. If two bit strings of unequal 
lengths are compared, the shortest is padded on the left with binary zeros before the 
comparison. 

This left padding also occurs prior to logical operations on bit strings of unequal lengths. 
The following assignment statements all have the effect of setting B$6 to ON while leaving 
the other bits alone : 



B 6 = ON; 

B = B OR HEX'04'; 

B = B OR HEX'4'; 

B = B OR BIN'100'; 

Provided that the implementation dependent limit on bit string lengths is not less than 
twenty: 

B = B OR HEX'00004' 

will also produce the same results: a copy of B is padded to length twelve before it is ORed 
with the HEX'004', and the result is truncated at the left (the most significant four bits are 
removed) before it is stored back into B. 

Partitions of bit strings may be used in the same ways as entire strings, e.g.: 



IF B = OCT '17' THEN DO; 

1 TO 4 

The width of every bit partition must be known at compile-time. This means that in the 
form BS(X AT Y), X must be an arithmetic expression composed solely of literals, CON- 
STANTS, REPLACE names and the arithmetic operators. In the form B$(X TO Y), both X 
and Y must be computable at compile-time. Character strings are the only data type for 
which variable-width partition subscripting is allowed. 

As we have stated, bit strings should not be routinely used to pack booleans. The over- 
head of referencing the boolean components generally outweighs the savings of compressing 
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them. In the first example, a bit string was appropriate since the entire string was referenced 
more often that its components. 

It may also be appropriate to use bit strings to pack a table of booleans. Since there are 
generally fewer HAL/S statements which reference a table than entries in the table, it is 
possible to save memory (at the expense of execution time) by compressing the table while 
expanding each reference. For instance, in the table of 1000 booleans, 

DECLARE INFO ARRAY(IOOO) BOOLEAN; 

each array element can be easily referenced as in: 

IF INFOS (I:) THEN DO; 

but the table itself will occupy a lot of memory. Each boolean uses a whole byte, word, or 
other addressable unit. To save some storage, this table could be packed as shown below: 



H 


DECLARE INFO ARRAY! 1 ♦ 1000 / 16) BIK16); 


M 


TEST: 


M 


FUNCTION! I) BOOLEAN; 


n 


DECLARE I INTEGER! 


n 


DECLARE INTEGER. 


n 


WORD, bitnum; 


n 


WORD = OlVd, 16); 


n 

E 

ri 


BITNUM =1-16 WORD", 


RETURN INFO i 


s 


WORD+l:BITNUM+l 


M 


close test; 



Now the value of entry number I in the table can be referenced as TEST(I). This will be a 
less efficient reference, but the table size has been greatly reduced. 

This example assumes that the computer on which the code executes can address 
memory by the 16-bit unit. If not, this code could be very much less efficient. Thus, this 
example is not machine-independent. It would still compile and produce the correct results 
on say, a 24-bit machine, but to achieve the same efficient use of memory would require 
changing the four occurrences of 16 to 24. Thus, one reason why programs containing bit 
strings tend to be less transferrable is that bit strings are sometimes used to control the 
packing of information in "words" of memory. 

The expression INFO$(WORD: BITNUM) contains both array and component sub- 
scripts. As before, many combinations of simple and partition, component, array, and 
structure subscripts are allowed. 
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One of the most common uses of bit strings in aerospace applications is for formatting 
sensor and display data. For example, a sensor might produce a value in "packed decimal" 
format: six four-bit fields, each containing a number from to 9 (BIN'OOOO' to BIN'1001') 
packed in a 24-bit word. This could be converted to a simple integer by the following code: ' 



DECLARE INPUT BIT<2<»); 

DECLARE OUTPUT INTEGER INITIAL(O); 

DO FOR I = 1 TO 21 BY <t; 



OUTPUT 



10 OUTPUT ♦ INTEGER (INPUT ); 
* AT I 



END; 



Here we see that the INTEGER shaping function will accept a bit string as its operand. 
The effect is merely to treat the string as a binary number rather than a series of booleans. 

Conversely, the BIT function allows an integer to be treated as a bit string. The length 
of the string returned is always equal to the implementation-dependent maximum bit 
length. The code below assumes that the maximum is 1 6: 



DECLARE I INTEGER, 
B BITU6); 
READ(5) I; 










B 


= BITCI); 












IF 


B THEN 
1 














WRITE! 6) 


'VALUE 


OF 


I 


HAS 


NEGATIVE ' I 


IF 


B THEN 
* 














WRITE(6) 


'VALUE 


OF 


I 


HAS 


ODD'; 



This example produces correct results only on a 16-bit 2's complement or sign-magnitude 
computer. Here the machine dependence results from both the string length of 16 and the 
assumptions made about the interpretation of the first and last bits of an INTEGER. 
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Conversions between bit and integer types use the BIT and INTEGER functions. The 
BIT functfon will also accept a scalar argument, and the SCALAR function will accept a 
bt a— " However, an intermediate conversion to integer occurs m ^-to-b^tand 
tt-Z "^conversions. Thus, BIT(3.5) = BIN'0000000000000100', and SCALAR(BIN 
Sor/) = 4 .0. BIT of a scalar between zero and one-half generates a stnng of binary zeros. 

The value returned by the BIT function is always of the maximum legal length for bit 
string as defined for the compiler version in use. This fact must be considered when the 
BIT Lction itse.f is subscripted. The last four bits of an integer, I, can be referenced as 

BIT$(4 AT #-3) (I) 
but the expression 
BIT$(1 TO 4) (I) 

may or may not select the first four bits of I. If the number of bits in *e representation of 
r integer is less than the bit string length limit, the BIT function will left-pad the bit 
pattern of with binary zeros up to the limit. The subscript applied to a BIT function 
selects b^s from the irlimum-length result of the conversion rather than from the original 
operand, so BITSd TO 4) (I) may pick out padding instead ot data. 

The CHARACTER function can convert a bit string to its binary, octal, decimal, or hex- 
adelma. character representation. This is specified via a radix, which is written as a sub- 
script; for example: 



DECLARE B BITC8); 

B = BIT(25>; 

WRITE! 6) CHARACTER IB); 

SHEX 



WRITE16) CHARACTER CBT, 

30EC 



n I WRITE16) CHARACTERISE); 



WRITE(6) CHARACTER IB) 5 
SBIN 



WRITE16) B; 
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would produce: 

'19' 
'25' 
'31' 

'00011 001' 
'00011001' 

The BIT function can convert a character string back to a bit string. The radix is sup- 
plied here as well: every character in the string must be a digit in the valid range for the 

™ R wir! T$( ? X) ( ' 12,) iS B1N * 10010 '. BITS(@OCT) ('12') is BIN'1010', and 
BIT$(@BIN) ( 12 ) would result in a runtime error. Note that conversions between character 
and bit do not depend on the codes used to represent numerals within character strings. 

Another function, SUBBIT, allows any data type to be referenced, assigned and sub- 
scripted as if it were a bit string. SUBBIT obtains the internal representation of a variable 
with no modifications at all. Since these representations of HAL/S data types vary from 
computer to computer, programs which use SUBBIT can not be machine-independent. 

The SUBBIT function is used in the code below to convert a character string containing 
decimal digits to the packed decimal form discussed earlier. This routine assumes that the 
digits are represented in the EBCDIC character code. In this code (which is not used in all 
implementations) the decimal digits 0-9 are represented by the binary codes HEX'FO' 
through HEX'F9'. v 

DECLARE C CHARACTER (4) INITIALC1234')- 
DECLARE B BIT(16) INITIAL(HEX'OOOO')- 
DO FOR TEMPORARY I = 1 TO 4; 

B = B | | SUBBIT S(5 TO 8)(C$I); 
END; 

The expression SUBBIT$(5 TO 8)(CSI) selects bits five through eight of the binary rep- 
resentation of the Ith character of C.SUBBIT can also be used to modify a variable as if 
it were a bit string. The SUBBIT function is described further in the HAL/S language 
specification. e 6 

As a final example of bit strings, consider the following problem: A set of three redun- 
dant sensors produce an ARRAY(3) BIT(16), where each sensor contributes one array 
element containing four fields as shown below: 



"1 "2 n3 validity bit 

t — i — ■ — n 



■ I i i i i i i i i i « i i i 

1 2 3 4 5 € 7 8 9 10 11 12 13 14 15 16 
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The problem is to produce a fourth word in the same format which contains average values. 
The five bit fields will be treated as unsigned integral numbers; the validity bit in the average 
will be true if and only if all three input validity bits are true. 

The data can be declared as: 

DECLARE DATA ARRAY(3) BIT(16); 
DECLARE AVERAGE BIT(16); 

and the computation can be done in a single statement: 



AVERAGE = BIT CSUM1 INTEGER! [DATA ] )J / 3) II BIT I SUMC INTEGER I [DATA 1 

5 AT S-<t « = 1 TO 5 5 AT S-4 « = 5 AT 

1) / 31 II BIT (SUWdHTEGEBIlDATA] )) / 3) II DATA AND DATA i DATA ; 

6 5 AT S-4 «:5 AT 11 1 = 16 2 : " 3:16 



Note that the bits in the diagram were numbered from one to sixteen, starting at the left 
(or most significant bit). HAL/S always numbers bits in this way, regardless of any conven- 
tions that may be used in hardware documentation. 

The expression BIT$(5 AT #-4) (. . .) selects the last five bits of its operand. Since the 
length of the string returned by the BIT function is implementation dependent, the use of 
"#_4" instead of "12" or "28", etc., is generally preferred. 

DATAS(*: 1 TO 5) is an ARRAY (3) BIT(S); this expression selects a bit partition from 
each array element. Thus, the INTEGER function is being presented with an array of "N 1 " 
fields. 

This example also shows the use of the catenation operator on bit strings, which 
operates in the same way as on character strings. 

In this section, two major uses of bit strings have been presented. First, bit strings were 
used to collect booleans into a single word so that a complex boolean expression could be 
reduced to a simple comparison; the examples would work under any HAL/S implementa- 
tion. The other major use of bit strings is for manipulating quantities of less than one 
addressability atom; bit subscripts used to pick apart a word of memory. This allows explicit 
user control over the packing of data, and provides a facility for reformatting avionics I/O 
data. In this case, such considerations as the word size of the target machine and the internal 
representations of HAL/S data become important; hence, there is a degree of implementa- 
tion-dependence in the use of bit strings. 
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Exercises 

13.1 A Given, 

DECLARE FLAGS BIT(12); 

write expressions that test for each of the following conditions without using 
subscripts: 

a) bits 1 and 2 on, 

b) even numbered bits off, 

c) first six bits off or last six on, 

d) bits 1 , 3, 5, 1 1 on, others off, and 

e) bits 1 , 3, 5, 1 1 on, 2, 12 off, others irrelevant. 

1 3 . 1 B Fill in the following function so it agrees with the comment : 

FLIP: FUNCTION(B) BIT(12); 
DECLARE B BIT(12); 
C Return string of bits in reverse order, 
C i.e., FLIP(HEX'OOl') should be HEX'800'. 

CLOSE FLIP; 

13. 1C Six bits can represent an integer value between zero and 63. If a table of 200 such 
values were to be stored in a computer with a 24-bit word, it would be advantageous 
to pack four values per word. Write a procedure, 

SET_BITS : PROCEDURE(ENTRY,VALUE) ; 

which can be called to set one of the 200 6-bit entries to value, and a function, 

GET_BITS: FUNCTION(ENTRY) INTEGER; 

which returns the value of one entry. Use the declaration: 

DECLARE TABLE ARRAY(50) BIT(24); 

13. ID A common format for floating point numbers consists of a sign bit, followed by 
seven exponent bits, and 24 mantissa bits. The value of the number is: 

±. mantissa x l6 ex P onent ~ 64 

A non-zero number is said to be "normalized" if the first four bits of the mantissa 
are not all zero. Write a procedure which interprets its BIT(32) argument as a 
floating point number, and returns a BIT(32) which has the same floating point 
value as the input, but is normalized. If the input mantissa is 0, then return true 
zero (i.e., all bits = 0). When would such a routine be useful? 
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13. IE Re-do the packed decimal to integer conversion example in the text using only one 
executable statement. 

13. IF Re-do the problem above without any arithmetic operators. Hint: Use character 
operations. 

13.2 NAME VARIABLES 

Name variables are pointers or addresses; they allow data to be referenced indirectly. 
Name variables are sometimes called "pointers-to", since each name variable can point only 
at variables of a given data type. The type of the data pointed to is specified in the declara- 
tion of the name variable itself. 

The most prevalent use of pointers in general is to pass the address of a data aggregate 
(such as MATRIX) to a subroutine. In HAL/S, this is done implicitly via ASSIGN param- 
eters- hence the need for name variables in application programs is almost eliminated. In 
system programs, name variables may be used for efficiency in maintaining linked lists and 
queues, for buffer control and storage management, and for interfaces to non-HAL/S code 
or I/O hardware (e.g., a DMA channel). 

Another common use of name variables is to avoid a repeated structure subscript opera- 
tion. Suppose an inertial sensor produces data in the format indicated below: 

STRUCTURE IMU_DATA: 

1 DELTA_V ARRAY(3) INTEGER DOUBLE, 
1 ATTITUDE ARRAY(3) INTEGER, 
1 STATUS BIT(16); 



There are three of these sensors : 

DECLARE IMU_INPT IMU_DATA-STRUCTURE(3); 

A low rate process is to select the best of the three copies of IMU data; the entire structure 
is to be read and the selected copy processed at a higher rate. One way* to pass the selection 
information between the processes is as a structure subscript. An integer, 

DECLARE BEST INTEGER; 

could be located in a compool visible to both processes. It would be assigned to 1, 2 or 3 at 
the low rate and the high rate would have computations involving IMU_INPT$(BEST;). No 
name variables are used so far, but this solution will work. Individual components of the 
selected structure can be referenced as in: 

PITCH_ANGLE = SCALAR(IMU_INPT.ATTITUDE BEST;1 ); 



•without using name variables 
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Every reference to the selected structure copy includes the subscripting operation This 
conceptually involves adding the base address of the structure to the product of the struc- 
ture width and the value of BEST. Multiplication is relatively slow on most computers. It 
would generally be more efficient to compute the address of the BEST copy of IMU INPT 
only once and reference it directly through this saved address. Both "indexing" and "in- 
direction" are performed in a variety of ways on different computers, but when the index 
requires multiplication, in this case by the width often integers, indirection is quicker. This 
is not to say that it is always preferred; some of the risks of using name variables will be 
discussed later. 

Before giving the name variable solution, we note that the address can be computed and 
saved by adding an additional procedure : 



+ 






CALL XTRA ASSIGN! IMU INPT 




); 


BEST 




XTRA: 






PROCEDURE ASSIGN! BEST IMU); 






DECLARE BEST_IMU IKU_DATA 


structure; 


PITCH_ANGLE = SCALAR! BEST. 


.IMU 


attitude ) ; 
l 


CLOSE XTRA! 







Here the structure subscript is eliminated throughout the XTRA code block, since HAL/S 
ASSIGN parameters are a case of "call by reference" rather than "call by value"; the 
address of the argument is passed to the procedure. Name variables allow the same type of 
indirect reference without the overhead of calling an extra procedure. This is shown below: 



STRUCTURE IMU DATA: 

1 DELTA V ARRAY(3) INTEGER DOUBLE, 
1 ATTITUDE ARRAYC3) INTEGER, 
1 STATUS BIT116); 

DECLARE IMU_INPT IMU_DATA-STRUCTURE(3); 
DECLARE BEST INTEGER; 
DECLARE PITCH_ANGLE SCALAR; 

DECLARE BEST_IMU NAME IMU_DATA-STRUCTURE; 
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LOW_RATE : 

task; 

declare best integer; 
call tbd assign! best); 



NAME(BEST_IMU) 
CLOSE low_rate; 



HI_RATE'. 

task; 



nameuhu inpt ); 
best; 



PITCH ANGLE = SCALAR <BEST_IMU. ATTITUDE ); 

1 



CLOSE hi_rate; 



This program is much the same as before. In particular, the HI_RATE task is the same as 
when BEST_IMU was an assign parameter, except that the XTRA procedure is gone. 

The name variable, BEST_IMU, occurs three times in the program above. First is the 
declaration: a variable is specified to be a name by placing the keyword NAME before 
the data type. The second is when it appears as an operand to the NAME function in the 
LOW_RATE task. In this context (and only in this context) the name is treated as a pointer. 
Here it is set to the address of the best copy of IMU_INPT. The only way to "re-point" the 
name variable BEST_IMU is by executing a statement of the form: 

NAME(BESTJMU) = NAME(. . .); 

The only way to reference a name variable's pointer value at all is by use of the NAME 
function. Normally, BEST_IMU is of type IMU_DATA-STRUCTURE. It may be used any- 
where that a non-name variable of type IMU^DATA-STRUCTURE is allowed. In a normal 
context, outside the name function, a name variable serves as an alias for data of some other 
type, hence the terminology NAME instead of "pointer". This is not at all the same as the 
use of a REPLACE macro as in : 

REPLACE BEST_IMU BY "IMU_INPT$ (BEST;)); 

because the replace macro results in the subscript operation performed every time. In the 
case of name variables, changes to the value of BEST only affect which data is referenced by 
BEST_IMU when the 

NAME(BEST_IMU) = NAME(IMU_INPT$ (BEST;)); 
name assignment is executed. 
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Name variables may be of almost any data type, though the most useful is structure. The 
types of data to which names cannot point are those which require more than a simple 
address to describe. These are the same types that are disallowed as assign parameters; ex- 
amples include bit partitions, matrix columns, etc. 

A name variable can only refer to data of exactly the same type as specified in its decla- 
ration. This means that all of the type attributes must match, including precision, arrayness, 
structure hierarchy, and so on. The INITIAL attribute is an exception. The statement 



DECLARE BEST_IMU NAME IMU_DATA-STRUCTURE INITIAL! NAME (IMU_INPT )); 



initializes NAME (B EST IMU), i.e., the pointer value. When a name variable is declared, 
the amount of storage reserved is just enough for one address. The INITIAL attribute 
specifies the value to be placed in this address word. The block of storage needed to contain 
an IMU_DATA-STRUCTURE is not allocated when the name is declared, thus the initial 
values for the structure pointed at must be specified elsewhere. The statement shown causes 
the name variable BEST_IMU to point initially at the second copy of IMU__INPT. 

If the INITIAL attribute is not specified in a name declaration, the name initially points 
nowhere. A special value is used as a null address so that all uninitialized names have the 
same values. This null value is an address at which it is impossible to locate data and can be 
written either as "NULL" or as "NAME(NULL)". It is possible to determine whether or not 
a name variable points anywhere, as shown below: 



IF NAME(BEST_INU) = NAME(NULL) THEN 
KRITEC6) 'BEST 1KJ NOT CHOSEN'; 



The basic NAME syntax has been shown in the context of one example; the forms of 
declaring, initializing, re-pointing, and dereferencing (i.e., accessing the data pointed at) have 
been shown. The main example used is machine-independent and at least somewhat applica- 
tion oriented. Nonetheless, there are pitfalls in the use of name variables. It is difficult to 
find out what a name variable is pointing at by examining the code surrounding a reference 
to it. Data which is accessed via name variables is not fully tracked in the cross reference 
listing. Name variables allow a single location to be referenced by several identifiers, possibly 
resulting in obscure side-effects of assignments. Name variables also tend to bypass compiler 
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nntimi/ation since they make it difficult to find a segment of code over which a particular 
variab not modified It is hard for either the programmer or the compiler to be certain 
what is being changed when name variables are assigned into. Thus, it is frequently worth- 
wMe to 2 a less efficient but less dangerous construct such as structure subscripting. A 
common lament is "I thought I understood this code until I saw these name variables! . 

In most application code, name variables should be avoided: the possible gain in effi- 
ciency is generally outweighted by the loss in reliability and maintainability*. Name van- 
ables are provided in HAL/S primarily to allow the writing of system software. 

Exercises 

13.2A Name any three HAL/S data items which cannot appear as an operand of the NAME 
pseudo-function. 

13. 2B Which of the following can be done with name variables: 

a) bypass HAL/S scoping rules, 

b) declare a structure node with copiness, 

c) reference a single data item by several names or identifiers, 

d) reference absolute addresses, and 

e) change the type of data. 

13.3 LISTS AND QUEUES 

The HAL/S language does not provide syntax for dynamic storage allocation. Tempo- 
rary ^riabtsL £2 for intermediate results may be allocated and freed b> , the run i 
code but all decisions are made based on the static block structure, DO . END grouping 
etc lL processing languages can automatically release data that is not on any list and 
low heTpace :o 8 creaL g to be used for new lists. HAL/S does not provide this type of 
storlge management because it is not possible to guarantee that such systems will not run 
out of storage: this would be an unacceptable condition in flight. 

Aside from storage management, the most valuable feature of lists is that entries can be 
deleted or inserted in the middle without copying data. This capability is available in HAL/S 
through structures and name variables. 

Consider the timer queue, a concept which is central to many operating systems. Each 
entry in the queue contains a time and an action to be taken. The queue is maintaine I in 
order of increasing time: the top entry is loaded into an interval timer. This could be coded 
in HAL/S as shown on the next page: 



.Qualitatively speaking, a program's reliability is the probability that it has no hidden bugs. Its maintain- 
SK to to p%b.WMy thatlt can be changed or extended without reducing rehabihty. 
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STRUCTURE TOE: 

TIMER QUEUE ELEMENT 

1 TIME SCALAR, 
1 ACTION INTEGER, 

1 AFFECTED_PROCESS NAME PROCESS CONTROL-STRUCTURE, 
1 NEXT NAME TQE-STRUCTURE i 
DECLARE TQ TQE-STRUCTURE< 100 ); 



These statements create a 100-copy structure, with four fields in each copy. Two fields 
are name variables; they are referenced in the usual manner, e.g., 

TQ.AFFECTED_PROCESS$(l ;) 

is the third field of the first copy of TQ. It is of type PROCESS_CONTROL-STRUCTURE. 
Only the address is physically contained in TQ$(1 ;), but the structure elsewhere is accessed 
when the name variable is referenced in a normal context (i.e., outside of the NAME func- 
tion). The name variable next points to a TQE structure; the last field of TQE is the name 
of another TQE. We will explore the implications of this later. As it stands, all of the fields 
in TQ are null. The queue could be initialized as shown below: 



DECLARE FREE_Q NAME TOE-STRUCTURE! 
DECLARE ACTV Q NAME TOE-STRUCTURE; 



INITIALIZE: 
+ 
NAMEfFREE 5) 



NAMEtTQ >; 

i; 



DO FOR TEMPORARY N = I TO 99; 
♦ + 

NAMEITO.HEXT ) = NAME(TQ )! 
N; N+li 
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Now the entries in the queue are tied together with pointers, as shown below: 



FREE_Q 



ACT V J 



3? 












■9 



The structure copy numbers are shown in the diagram, but each field can now be referenced 
without using a copy number, as indicated in the following table: 



Referenced Data 

TQ$(1;) 

TQ$(2;) 
TQ$(3;) 
TQ.TIME$(2;) 



Pointed To By 

FREE_Q 
FREE_Q.NEXT 
FREE_Q.NEXT.NEXT 
FREE_Q.NEXT.TIME 



Since FREE_Q.NEXT is the name of a TQE structure, it also has a NEXT field. This field 
points at the third entry in the free queue, which at the moment is also the third copy of 
TQ. 

The procedure below creates an entry in the active queue by removing it from the free 
queue and inserting it at the appropriate point in ACTV_Q based on the time field: 



ENQUEUE: 

PROCEDl'SEIWHEN, WHAT, PROCNAHE > ! 
DECLARE WHEN SCALAR, 
WHAT INTEGER, 

PPOCNAHE NAI1E PROCESS_COHTROL-STRUCTUPE ; 
DECLARE HEM NAME TQE-STRUCTURE; 

THE FOLLOWING NAME VARIABLE IS USED LIKE A LOOP 
VARIABLE IN A SEARCH 

DECLARE ENT HAHE TQE-STRUCTURE ; 

IF NO FREE ENTPr THEN AN ERROR 

* 
IF NAME! FREE JJ) = NULL THEN 
RETURN', 



13-18 System Programming Aids 



ELSE USE TOP FREE ENTRY FOR HEW ACTIVE Q ELEMENT 

+ + 

Nt.MEINEWI = NAMEIFREEJ3I; 

REMOVE NEW ENTRY FROM FREE_Q 

* « 

NAMEI FREEJ3I = NAMEI FREEJ3.NEXT I ', 

PUT INFO INTO NEW ENTRY 

NEW. TIME = WHEN; 
NEW. ACTION = WHAT: 

NAMEINEW.AFFECTED_PR0CE5S> = NAME I PROCNAME ) ; 

NOU INSERT NEW ENTRY IN APPROPRIATE POINT OF ACTV QUEUE 

either before first, 

between ent amd ent. next for some emt 

or at end of cueue 

if new. time < actvj3.time then 
do; 

* + 

NAHEIHEW.HEXT) = NAMEI ACTVJ3I i 

* + 

N4MEIACTVJ1) = NAME (HEW)! 
RETURN! 

END; 

* + 

NAMEI ENT) = NAMEI ACTVJJ) ; 

+ 
DO UNTIL HAMEIEHT.HEXT) = NAME(NULL); 
+ + 

NAMEI ENT] = NAMEI ACTVJ3 >; 
IF ENT. NEXT. TIME > NEW. TIME THEN 

DO; 

+ + 

NAME(NEW.NEXT) = NAMEI ENT. NEXT I ; 

+ + 

NAME I ENT. NEXT I = NAME I NEW); 
RETUPN; 

end; 

+ + 

NAME(ENT) = NAMEI ENT. NEXT 1 ; 



AT THIS POINT , THE WHOLE Q WAS SEARCHED UNSUCCESSFULLY, 
SO ADD NEW TO THE END 



/* PUT FIRST*/ 



/•START AT TOP*/ 
/* SEARCH Q«/ 
/•START AT TOP»/ 



/• NEW ENTRY INSERTED «/ 
/* TRY NEXT ENTRY*/ 



NAME(ENT.NEXT) = NAMEINEW); 



NAME(NEW.NEXT) = NULL; 
M | CLOSE ENQUEUE ; 
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•n,- nmrPriure can insert an entry in the middle of the queue without physically moving 
s^^uent entries down, smce the sequence mformatton » encoded in the link, (name 
variables) rather than the position in memory (the copy number). After 

CALL ENQUEUEOO, 1, NULL); 

is executed, the queue looks like: 




© 



© 



/* 



-' 



■=5 



If the next calls are 

CALL ENQUEUEQO, 1, NULL); 
CALL ENQUEUE05, 1, NULL); 

the queue looks like : 








/* 



~ y 



*) 



Now, ACTV_Q is TQ$(1 ;), 

ACTV J2.NEXT is TQ$(3;), and 
ACTV_Q.NEXT.NEXT is TQS(2;). 
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TIME W even though * " ^ StmCtUre ' ^ dementS ° f ACTV -Q are sorted by increasing 

TQ.TIME(2;) > TQ.TIME$(3;). 

This queue could be used in implementing the HAL/S real time statements. The code 
below illustrates how the timer queue might be used. The CALL SET_CLOCK and WAIT 
FOR event statements are intended to load the value ACTV_Q.TIME into an interval timer 
and wart for the interrupt. This would have to be done via assembly language or %-macros' 
Percent macros are implementation-dependent. They allow a pre-defined sequence of 
machine instructions to be inserted in a HAL/S program. More detail is given in each User's 
Manual. 



int handler: 
task; 

declare clock_interrupt event! 
declare tehp name tqe-structurei 
do while true; 

call set_clock(actv_q.time> assigncclock interrupt); 
wait for clock interrupt! 
do case actv_qtaction; 

+ 
CALL RECYCLE! ACTV_q . AFFECTED_FROCESS ) ; 

+ 
CALL CANCEL_FROC(ACTV_Q.AFFECTED_PROCESS); 

+ 
CALL READYCACTV_q.AFFECTED_PROCESS) ; 

+ 
CALL SCHEDULE_AT(ACTV_Q.AFFECTED_PROCESS); 

END! 

NOW REMOVE TqE FROM ACTIVE CHAIN 

+ + 

NAME(TEMP) = NAME! ACTV_q) ! 

NAME(ACTV_Q) = NAME tACTV_q. NEXT); 

NAME(TEMP.NEXT) = NAME! FREE_q) ; 

+ + 

NAMECFREE Q) = NAME(TEMP); 
END; 

close; 

RECYCLE: 

procedure(x); 

declare x process_control-structure; 
close; 

cancel_proc: 
procedure(x)! 

declare x process_control-structure; 
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With the process INT_HANDLER running, and appropriate routines to recycle, cancel, and 
otherwise change process states, ENQUEUE could be called as a result of several HAL/S 
"WAIT .5 ;" executed by some process X might be translated to: 



statements. 



CALL ENQUEUE(RUNTIME + .5, 3, NAME(X));. 
CALL STALL(NAME(X)); /*enter wait state*/ 

Here we are assuming that X is a PROCESS CONTROL-STRUCTURE. Such a structure 
might consist of: 



STRUCTURE PROCESS CONTROL: 




1 


SAVE AREA RIGID, 






2 FIXED REGS ARRAY(16) BIT(32), 




2 FLOAT REGS ARRAY(8) SCALAR DOUBLE, 




2 OTHER BIT(32). 




1 


PRIORITIE INTEGER, 




1 


STATUS INTEGER. 




1 


NEXT NAME PROCESS CONTROL 


■STRUCTURE, 


1 


LAST NAME PROCESS_CONTROL 


-structure; 



where the node, SAVE_AREA is machine dependent. This is a double linked list: each 
entry has both forward and backward pointers. To see how this is useful, suppose that there 
are three queues containing process control blocks (PCBs). FREEPC will be the anchor 
(simple name variable pointing at the first element of) of a queue of unused PCBs, 
READYPC will be the anchor of a queue of PCBs representing ready processes, (sorted by 
priority), and STALLED will be a queue representing blocked processes (e.g., those in the 
wait state). One of these queues is diagrammed on the next page. All three have the same 
form. The STALL routine that was called above might simply remove the indicated process 
from the READYPC queue and add it to the STALLED queue. The argument to STALL is 
the address of the PCB to be removed from the READYPC. It could be written as: 



DECLARE READY PC NAME PROCESS_CONTROL-STRUCTURE; 
DECLARE STALLED NAME FR0CESS_CONTR0L-STRUCTURE; 
DECLARE FREEPC NAME PR0CESS_C0NTROL-STRUCTUREi 



STALL: 

PROCEDURE ASSIEN(PCB); 

DECLARE PCB PROCESS_CONTROL-STRUCTURE; 



REMOVE FROM READY QUEUE 
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NAME1 PCB. LAST. NEXT) = NAME! PCB. NEXT) ; 

+ + 

NAME (PCB. NEXT. LAST) = NAME C PCB . LAST ) ; 

ADD TO STALLED Q'JEUE AT THE BEGINNING 

+ + 

NAME( PCB. NEXT) = NAME! FREEPC) i 

+ + 

NAHE(FREEPC) = NAME(PCB); 
CLOSE STALL; 

CLOSE last_example; 



The reason a double linked list is needed is that STALL receives the address of a PCB in the 
middle of a chain : 




To remove it, the links of both neighbors must be changed. A singly linked list would suf- 
fice if it was always searched starting from READYPC. 

In this section, we have sketched portions of one possible implementation of the HAL/S 
real time statements. This design does not necessarily correspond to any actual operating 
system. The point of this section is to give a degree of familiarity with sophisticated uses of 
name variables, and to illustrate that large portions of "system programs" can be written in 
HAL/S. 



This system presented is not at all complete. A routine is needed to make a process 
ready. It could be essentially the same as the ENQUEUE routine shown earlier. The routine 
that readies a cyclic process when the timer goes off should put a new entry in the queue for 
the next cycle. Also, some low-level control code is needed to dispatch the highest priority 
ready process. This process is always the one that corresponds to READYPC; since the 
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.Hv mieue is sorted the top routine is always the one to receive control. However there is 
'ThAL/S yntax for branching to a program or for loading/storing specific machine regrs- 
^ers^ some level assembly fanguage has to be used, though HAL/S does allow certain 
l^ned maSnne^truction sequences to be generated via % macros^ These macros make 
machine dependencies highly visible in the listing. If the %-macros defined for a particular 
implementation are not sufficient, assembly language comsubs can fill the gap. 

Name variables percent macros, bit strings, EQUATE EXTERNAL*, and the ability to 
call a s^mb y anguage routines all contribute to making HAL/S suitable for systems pro- 
gfamS Us of these features in application programming is discouraged; none theles 

me safety is provided by the type checking ru.es (as applied to name variables and b* 
string and other safeguards. Even in the system-language portion of HAL/S, many torms 
of bad programming practice are precluded by compiler restrictions. These features are 
d signed oXt relia g bfe, readable and efficient programming is still encouraged even though 
U annot be as thoroughly enforced when the system programming features are used. 



Exercises 

13.3A Declare and initialize a structure, CIRCLE, such that the following relation is true: 

NAME(CIRCLE.NEXT) = NAME(CIRCLE). 

1 3 3B Change the declaration of the timer queue so that each element (TQE) is the head of 
an arbitrary-length list of action-affected process pairs all to be done at the same 
time, as illustrated. 




*See appropriate User's Manual for details. 
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Change the ENQUEUE routine to either add the new element to the end of an 
existing list, if there is already one, or more actions at that time, or insert a new list 
consisting of a header and the new item. 

13.3C As written in the text, the procedure STALL may fail with some inputs. When will 
this happen? Modify the procedure to remove this problem. 



End of Chapter Problems 

1 3A Write a procedure which will insert a PROCESS CONTROL-STRUCTURE in the 
READY_PC queue (both defined as in Section 13.3) after all entries having an equal 
or higher PRIORITY and before all entries that are lower. Remember to maintain 
both forward and backward links. 

13B Write a program which will read in two hexadecimal numbers (of up to six digits) 
separated by either a plus or minus sign, and print their sum or difference in both 
decimal and hexadecimal. 
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14.0 FIXED POINT 

14.1 INTRODUCTION 

HAL/S provides a scaled fixed point facility via the FIXED data type. It is expected that 
the FIXED data type will mainly be used for computers which do not support SCALARs. 
This chapter explains how fixed point computations are programmed in HAL/S. It assumes 
the reader is familiar with fixed point concepts. 

FIXED variables are declared as in: 

DECLARE R FIXED @5; 

A FIXED variable represents an engineering value in terms of a stored fraction times a de- 
clared scale factor. In this example we have: 

r = R x 2 5 

where R is the fraction stored in variable r, and the scale factor is 2 raised to the fifth power 
(specified by "@5". Since R must always be a fraction, r can represent values in the range 
(-32, 32), i.e., (-2 5 , 2 5 ). It is the responsibility of the programmer to select a scale factor 
larger than the maximum magnitude of values to be represented by each FIXED variable so 
that the stored value is always a fraction. 

The HAL/S approach to fixed point contributes to program portability and program 
correctness. In the first place, a program employing FIXED computations does not need 
any modification in order to be compiled for a different target computer. More importantly, 
the only changes in the behavior of the program concern the precision of the values com- 
puted. On computers with different word sizes, the number of bits employed in representing 
FIXED values (i.e., the fraction) will differ. However, the difference only affects the num- 
ber of binary digits of precision. Therefore, computations on the shorter word-length 
machine will be less precise than those performed on a longer word4ength machine, but the 
values produced will be very similar. 

As for program correctness, HAL/S compilers enforce several language rules which 
eliminate the common errors which can arise in the use of FIXED data types. One rule is 
that the source and target of an assignment statement must have the same scale factor. A 
program which disobeys this rule will obviously produce spurious results. The important 
point is that unlike assemblers, HAL/S compilers will catch such errors during compilation. 
Another rule is that scale factor equality is required for operands of addition and subtrac- 
tion, and between arguments and formal parameters of subroutines. This rule's motivation is 
the same as for the first rule. 

In a fractional representation using a finite number of bits, increasing the number of 
leading binary zeros decreases the number of meaningful binary digits and thereby decreases 
the precision. However, the likelihood of overflow is decreased when the number of leading 
zeros is increased. Making a successful tradeoff between these two positions requires an 
understanding of the abstract computation being performed. The programmer - not a com- 
piler - knows best how to make this decision. Furthermore, it is often necessary for the 
programmer to control exactly the rescaling to be performed, which is difficult in a context 
of automatic rescaling. 
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For these reasons, HAL/S does not automatically rescale FIXED quantities, but rather 
provides a rescaling facility so the programmer can exercise necessary control. 

14.2 SCALING 

Scaling can be performed on literals and expressions with the scaling operator 
"@<exp>" in order to change their fraction and scale factor while preserving their abstract 
values. The expression: 

3.14159 @5 

causes the value of pi to be scaled by 2 5 ; i.e. the stored fraction of pi = 3.14159/2 5 . Note 
that 

3. 14159 = 3. 14159/2 5 x 2 5 

fraction scale factor 

Applying "@<exp>" to a FIXED expression has the effect of multiplying the original scale 
factor by 2< ex P> (i.e., adding <exp> to the exponent of 2), and dividing the fraction by 
2<exp> Literals without explicit scaling are considered to have a scale factor of 2° = 1 , and 
must have absolute values of less than 1 . 

Scaling can be employed in order to satisfy the scale factor rule for assignment, as in: 

R = 3.14159 @5 ; 

where R has been declared with scale factor 2 . Other instances of scale factor mismatch 
can be adjusted through the use of scaling. 

The scaling operator can also be employed in FIXED computations for maintaining 
maximum precision and preventing overflow. Recall that precision is increased when the 
fraction has fewer leading binary zeros, since then more significant bits can be held in a 
storage unit. This may be accomplished by reducing the scale factor. For example, to reduce 
the scale factor of R by 2 , i.e. 

r = R x 2 5 = R@„3 x 2 2 

or R@_ 3 = R x 2 3 = (8 R) 

The fraction R is increased by a factor of 8, thereby reducing the number of leading zeros. 

On the other hand, overflow can be avoided by increasing the number of leading zeros. 
For instance, if r = 24 so that R = .75, then coding: 

2R 

will cause overflow. If the scaling is changed to reduce the size of the fraction: 

R@j = .75/2 = .375 (where the scale factor is now 2°) 
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then the expression 2 R m will produce .75, thereby preventing overflow. The abstract 
talue is correct, i.e., .75 x @ K and the fraction has magnitude less than 1. Successful maxi- 
mization of precision, while avoiding overflow, requires the programmer to fully understand 
the ranges of the abstract quantities being combined. 

Note that another method of increasing precision is to explicitly specify "©DOUBLE" 
within expressions, though usually at increased execution and storage costs. See Section 3.4 
for a description of the precision attributes. 

14.3 EXPRESSIONS 

The arithmetic operators have their usual meanings when applied to FIXED expressions. 
There are a few additional rules which specify the treatment of scale factors. 

+ _ Addition and subtraction. The operands are both FIXED data types 

and must have identical scale factors. The result has the same scale 
factor as the operands. 

Multiplication Indicated by an adjacency. The operands are both FIXED data types 
or one is INTEGER. An INTEGER operand indicates repeated addi- 
tion (as specified above) of the FIXED operand. Otherwise, the 
two FIXED data types are multiplied, and the resulting scale factor is 
the product of the operands' scale factors. 

Division. The operands are both FIXED or the right operand is 
INTEGER The left operand is divided by the right operand, and the 
resulting scale factor is that of the left dividend divided by that of the 
right. For division by an INTEGER, the result's scale factor is that of 
the FIXED operand. 

** Exponentiation. The left operand is FIXED and the right operand is 

a positive INTEGER known at compile-time. Exponentiation indicates 
repeated multiplication of the FIXED operand by itself, using the 
multiplication rules specified above. 

For example, let: 
a = b c + d 

be a computation to be performed, where the scale factors of the variables are chosen for 
illustration purposes. The following program fragment shows how this can be coded: 

DECLARE FIXED, 

A @2, B @3, C @4, D @5; 

A = (B C)@_ 5 + D@_ 3 ; 

/* A = B x C x 2 5 + D x 2 3 */ 

There is a potential for losing precision in the computation "(B Q" because the result has at 
least five leading binary zeros, which are shifted out by "@-5". However, if the computer 
normally forms a double precision result as the product of single precision operands, then 
the compiler will perform the rescaling on the double precision value before converting to 
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single precision. Thus maximum precision is retained at no additional cost. In the absence of 
such hardware support, the programmer can preserve precision with: 

A = (B C @DO ubLe)@-5 + D @-3' 

Check the appropriate User's Manual for a description of how your particular HAL/S com- 
piler treats this case. 

Notice that the subscript notation for scaling operations contributes to the readability 
of FIXED expressions. The scaling operations do not so clutter the appearance of a compu- 
tation so its abstract meaning is easily seen. 

Readability and modifiability can be enhanced by using named constants instead of 
literals for scaling as in the following example: 

DECLARE INTEGER, 

PS CONSTANTS), 

RS CONSTANTS); 
C PI SCALE AND R SCALE 

DECLARE PI FIXED @PS CONSTANT (3.14159 @ps ); 
DECLARE FIXED, 

R @RS, 

AREA @(PS + 2 RS), 

CIRCUM @(PS + RS); 

AREA = PIR**2; 
CIRCUM = 2 PI R; 



14.4 SHAPING FUNCTIONS 

As with the other arithmetic data types, the FIXED data type has a shaping function, 
which is named "FIXED". A use of this function includes a scaling specifier (in the usual 
"@<exp>" subscript notation) to tell how the value being converted to a FIXED is to be 
scaled. For example, if J is an INTEGER with value 16, then the expression: 

FIXED @5 (J) 

has the FIXED value: 

16/2 5 = .5 

Thus, the scaling specifier acts like the scaling operator. A legal usage of this expression 
might be an assignment to the FIXED variable R from earlier examples: 

R = FIXED @5 (J); 

Naturally, the FIXED shaping function can also be applied to scalars. The scaling speci- 
fier must be large enough so that the converted value is truly a fraction. 
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When converting from a FIXED to some other arithmetic data type, a scaling specifier 
is also employed. This is used to satisfy the requirement that the scale factor of the result 
of the conversion be 1 (i.e., 2°). For instance, one would write: 

J = INTEGER@^ 5 (R); 

This has the effect of removing the scaling from the abstract value represented by R. (Note 
that the expression: 

has a similar intent of attempting to set the scale factor to 1, but does not work because 
overflow will probably occur.) The other shaping functions SCALAR, VECTOR, and 
MATRIX also have a scaling specifier when applied to FIXED data types. 



14.5 VECTORF AND MATRIXF 

The data types VECTORF and MATRIXF are similar to VECTOR and MATRIX, but 
they have FIXED data types instead of SCALARs as components. Many of the operations 
applicable to VECTORs and MATRIXs are available for their FIXED analogs. VECTORF 
and MATRIXF are declared and used with scaling, which applies to their FIXED com- 
ponents. 

DECLARE POSITION VECTORF @10 
INITIAL (100.0 @10 , 30 @10 , -40 @10 ); 

Further details on these data types can be found in the HAL/S Language Specification. 



14.6 SCALING REVISITED 

The construct "@<exp>" specifies scale factors which are powers of 2. Such scale fac- 
tors are advantageous because on most machines rescaling can be accomplished by shifting 
the fraction right by <exp> bits (left if <exp> is negative), and by adding <exp> to the 
exponent of the scale factors, instead of the more expensive multiplication or division. 

Occasionally it is more natural to use some other scale factor, e.g., pi. This is achieved 
via "@@<exp>". In this case <exp> itself is treated as the scale factor. Thus "@e" is a 
shorthand for "@@2 e ". 

DECLARE ANGLE FIXED @@PI 
INITIAL (1.0@@pi); 
C 1 RADIAN SCALED BY PI. 

. . . COS(ANGLE) . . . 
C TRIGONOMETRIC FUNCTIONS EXPECT FIXEDS SCALED BY PI. 

In this example, angle can be represented by: 

angle '= ANGLE x pi 
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Notice that scaling by other than powers of two implies that actual multiplications and 
divisions are performed. 

It is even possible to have FIXED data types without any scaling. 

DECLARE BECAREFUL FIXED INITIAL (0.15); 

If an operation has an operand with unspecified scaling, then the result also has unspeci- 
fied scaling. Scale factor matching is not required when one of the expressions has an un- 
specified scale factor. This mode of FIXED usage is rarely desirable because the compiler 
cannot provide checking and scale factor support. Rather, it becomes the programmer's 
responsibility to perform the scale factor manipulations by hand. 

One reason for employing FIXED data types without scale factors is in the simulation 
of floating point. The built-in functions NORMALIZE and NORMCOUNT can be used in 
such an application to shift out leading zeros, and count the number of positions shifted, 
respectively. 

End of Chapter Problems 

DECLARE FIXED, 

A@7, B@3,C@2, D@4; 

1 4A Fill in the correct scalings in 

A = ((B C)@ , + D)@ , ; 

14B Why is 

B = 2 C@j ; 
Safer than 

B = (2 C) @1 ; 
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ARITHMETIC FUNCTIONS 



• Arguments may be integer or scalar. 

• The data type of the result matches the argument type unless otherwise 
noted. 

• Arrayed arguments generate multiple invocations of a function, one for 
each element in the array. When two or more arguments are arrayed, 
their array ness must match.* 



Name <Arguments(s)> 



ABS(X) 



CEILING(X) 



DIV(X,Y) 



FLOOR(X) 



MIDVAL(X,Y,Z) 



MOD(X,Y) 



Comments 



Absolute value IX I. 



Smallest integer > X. 
CEIUNG(-3.4) returns -3. 



Integer division X/Y; where scalar arguments are 
rounded to integers. This construct is the only way to 
do integer division in HAL. 
DIV(5,2) returns 2. 

Note: Where X, Y, Z are integers X = 5, Y = 2. The 
statement Z = X/Y results in two integer to scalar con- 
versions and a scalar divide. Finally, the result is con- 
verted to an integer type. In this case Z = X/Y sets Z 
to 3. 



Largest integer < X. 
FLOOR(-3.4) returns -4. 



The value of the argument which is algebraically be- 
tween the other two. If two or more arguments have the 
same value, that value is returned. 
MIDVAL(-.4, -.6, 3.5) returns -.4. 



X MOD Y (modulus) 
arguments are integers. 

MOD(5,3) returns 2. 
MOD(5,-3) returns 2. 
MOD(-5,3) returns 1. 
MOD(-5,-3) returns 1. 
MOD(-5, 2.1) returns 1.3 



The result is scalar unless both 



*For a discussion of arrayness, see Section 6.2. 
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ARITHMETIC FUNCTIONS (CONT'D.) 



Name <Argument(s)> 



ODD(X) 



REMAINDERS, Y) 



ROUND(X) 



SIGN(X) 



SIGNUM(X) 



TRUNCATE(X) 



Comments 



Result is BOOLEAN. True if X is odd, false if X is even. 

IF(ODD(X)) 
THEN . . . 

Note: Scalar arguments are rounded to integer. 



Signed remainder of integer division X/Y. 

REMAINDER(-5,3) returns -2. 
REMAINDER(5,-3) returns 2. 
REMAINER(-5 -3) returns -2. 

Note: Scalar arguments are rounded to integers. 



Nearest integral value to X, essentially the same as HAL 
scalar to integer conversion. 



Returns an integer: +1 if X > 0; 
-1 ifX<0. 



Returns an integer: +1 if X > 0; 

0ifX=0; 

-1 ifX<0. 

DO CASE(SIGNUM(X)+2). 



Strip off fractional part of the scalar (X). 

TRUNCATE(-3.4) returns -3. 
TRUNCATE(7.8) returns 7. 
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ALGEBRAIC FUNCTIONS 



• Arguments may be integer or scalar types - conversion to scalar occurs 
with integer arguments. 

• Result type is always scalar. 

• Arrayed arguments cause multiple invocations of the function, one per 
each array element. 

• Angular values are supplied or delivered in radians.* 

• Arguments that are outside the domain specified in the comments result 
in HAL/S runtime errors, (see Chapter 10). 



Name <Argument(s)> 



ARCCOS(X) 



ARCCOSH(X) 



ARCSIN(X) 



ARCSINH(X) 



ARCTAN2(X,Y) 



Comments 



IXK1. 



X > 1. 



IX l< 1. 



ARCTAN(X) 



ARCTANH(X) 



COS(X) 



COSH(X) 



EXP(X) 



Returns B = tan" ' (X/Y) where the proper quadrant for 
-7T < 8 < it is determined from the signs of X and Y. 
Proper quadrant results if 

X = K sinf 
Y = K cos 



K > 



Principle value only; see above. 



IX l< 1. 



LOG(X) 



SIN(X) 



log„X,X>0. 



*One radian equals 57.2957795131 degrees, so that 
7T radians equals 180 degrees; 
jr/2 radians equals 90 degrees. 
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ALGEBRAIC FUNCTIONS (CONT'D.) 



Name <Argument(s)> 



SINH(X) 



SQRT(X) 



TAN(X) 



TANH(X) 



Comments 



X ,X>0. 



VECTOR-MATRIX FUNCTIONS 



• Arguments are vector or matrix types as indicated 

• Result types are as implied by mathematical operation 

• Arrayed arguments cause multiple invocations of the function, one for each 
array element 



Name, Arguments 



ABVAL(a) 



DET(a) 



INVERSE(a) 



TRACE(a) 



TRANSPOSE(a) 



UNIT(a) 



Comments 



Length of vector a 



Determinant of square matrix a 



Inverse of nonsingular square matrix a 



Sum of diagonal elements of square matrix a 



Transpose of matrix a 



Unit vector in same direction as vector a 
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ARRAY FUNCTIONS 



. Arguments may be single or multi-dimensional arrays of scalars or 
integers. 

• The type of the result matches the type of the argument and is 
unarrayed. 



Name <Argument(s)> 



MAX(X) 



MIN(X) 



PROD(X) 



Comments 



Maximum of all elements of X. 



Minimum of all elements of X. 



Product of all elements of X. 



SUM(X) 



Sum of all elements of X. 
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BIT FUNCTIONS 



HAL/S provides AND, OR, and NOT operators for bit operands XOR 
(exclusive OR) is available as a built-in function. 



Name <Argument(s)> 



XOR(X,Y) 



Result Type 



BIT 



Comments 



Exclusive OR, where X and Y are bit 
strings. The length of the result is the 
length of the longer argument. The shorter 
argument is padded on the left with zeros. 
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CHARACTER FUNCTIONS 


• The first argument in each of the functions below is a character string. If 
a scalar or integer is specified where a character string is expected, a con- 
version to character type is performed. 


Name <Argument(s)> 


Result Type 


Comments 


INDEX(C1,C2) 


Integer 


C2 is a character string. If string C2 is con- 
tained within string CI, an index which is 
the location of the first character of C2 in 
CI is returned, otherwise, zero is returned. 
INDEXCCHARACTER', 'ACTER') returns 
5. 
INDEXC'ALPHA', 'BETA') returns 0. 


LENGTH(C) 


Integer 


Returns the current length of character 
string C. 


LJUST(Cl,n) 


Character 


n is integer type - the string CI is ex- 
panded to length n by padding on the right 
with blanks. If n is less than the current 
length of CI, an error is signaled and CI is 
truncated to length n. 


RJUST(Cl,n) 


Character 


n is integer type - the string CI is ex- 
panded to length n by padding on the left 
with blanks. If n is less than the current 
length of CI, an error is signaled and CI is 
truncated to length n. 


TRIM(Cl) 


Character 


Leading and trailing blanks are stripped 
from CI. 
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MISCELLANEOUS FUNCTIONS 


• Arguments are as indicated; if none are indicated the function has no 
arguments. 

• Result type is as indicated. 


Name <Argument(s)> 


Result Type 


Comments 


CLOCKTIME 


Scalar 


Elapsed time since midnight (format is im- 
plementation dependent). See Chapter 12. 


DATE 


Integer 


Returns date (implementation dependent 
format). 


ERRGRP 


Integer 


Returns group number of last error de- 
tected, or zero if no error was detected. See 
Chapter 10. 


ERRNUM 


Integer 


Returns number of last error detected, or 
zero if no error was detected. See Chapter 
10. 


NEXTIME 
«label>) 


Scalar 


<label> is the name of a program or task. 
The value returned is determined as 
follows: 

a) If the specified process was scheduled 
with the REPEAT EVERY option, and 
has begun at least one cycle of execu- 
tion, then the value is the time the next 
cycle will begin. 

b) If the specified process was scheduled 
with the IN or AT phrase, and has not 
yet begun execution, then the value is 
the time it will begin execution. 

c) Otherwise, the value is equal to the cur- 
rent time (RUNTIME function). 


PRIO 


Integer 


Returns priority of process calling func- 
tion. 


RANDOM 


Scalar 


Returns pseudo-random number from rec- 
tangular distribution over range 0-1.* 



*Note that for any particular HAL program complex which contains references to RANDOM and/or 
RANDOMG, the same set of "random" numbers will be generated in each execution. 
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MISCELLANEOUS FUNCTIONS (CONT'D.) 


Name <Argument(s)> 


Result Type 


Comments 


RANDOMG 


Scalar 


Returns pseudo random number from 
Gaussian distribution with a mean of zero, 
variance of one.* 


RUNTIME 


Scalar 


Time since the software began executing 
(implementation dependent format). See 
Chapter 12. 


SHL(X,Y) 


Integer 


X shifted left Y bit positions. X and Y may 
be scalar or integer, but scalars are con- 
verted to integer before shifting. This is an 
arithmetic (signed) shift. 

SHL(-2,2) returns -8. 


SHR(X,Y) 


Integer 


X shifts right Y bit positions. As above, this 
is an arithmetic shift. 

SHR(-4,2) returns -1. 


SIZE(X) 


Integer 


One of the following must hold: 

- X is an unsubscripted arrayed variable 
with a one-dimensional array specifica- 
tion - function returns length of array. 

- X is an unsubscripted major structure 
with a multiple copy specification — 
function returns number of copies. 

- X is an unsubscripted structure termi- 
nal with a one-dimensional array speci- 
fication — function returns length of 
array. 

Result is of integer type. 



*Note that for any particular HAL program complex which contains references to RANDOM and/or 
RANDOMG, the same set of "random" numbers will be generated in each execution. 
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Appendix B 

Although the main body of this manual has avoided references to specific compilers, 
there is considerable similarity in the compilers now available. In this appendix we will de- 
scribe additional software development support which is typically provided. 

The HAL/S compiler is not simply a language translator. All current implementations in- 
clude features not usually found in other common compilers, such as PL/ 1, FORTRAN, etc. 
These include special processing and annotation of the listings, facilities for restricting usage 
of variables or language features, and additional outputs for post-compilation tools. 

In addition to annotating identifiers and indenting as described in the text, the compiler 
adds several types of summary information to the listing. At the end of each procedure or 
function block, that block's interfaces are listed. The information presented includes lists of 
global variables referenced or modified, external procedures called, event variables modified, 
compool REPLACE macros used, and so forth. At the end of the listing a table of identifiers 
is printed, including the data type and a list of all statements which use the identifier. Some 
compilers produce a listing of annotated assembly language which corresponds to the 
machine code actually generated. This aids in debugging on flight hardware, although more 
sophisticated debugging supports is also provided. 

Two facilities provide for the establishment of managerial control over HAL/S usage. 
ACCESS rights allow restrictions to be placed on the modification of selected variables or 
on the usage of blocks. Since this can be done separately for each compilation unit, 
ACCESS rights provide managers with an important tool for controlling the interfaces be- 
tween modules. Another device is the SUBSETing capability, which provides the ability to 
restrict the usage of a user selected subset of HAL/S language features or built-in functions. 
This mechanism does not affect the code generated but merely flags by a warning message 
on the primary listing those statements violating the SUBSET. 

The efficiency and reliability of program complexes can be improved by use of a special- 
purpose link editor or binder. These programs (e.g., HALLINK) can reduce storage require- 
ments by generating the call tree beneath each program or task and allocating a temporary 
storage area (or stack) just large enough for the longest limb of the tree. If a compiler sys- 
tem includes an appropriate link editor, it may also add to software reliability; while the 
various HAL/S modules are being bound together, they can also be checked for consistency. 
The template generation system (Chapter Eleven) passes information to the link step that, 
for instance, allows verification that every program used the same compool template. 

Another output of each compilation is a Simulation Data File or SDF. This is a random 
access data base containing attribute and cross reference information for variables and code 
blocks. Data concerning executable statements is also included, as well as global statistics 
found in the primary listing. It is this large database that allows for many post-compilation 
analysis tools, ranging from execution-time debuggers to HALSTAT, a statistics and analysis 
package. 
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Programmers have many modes of execution available to them in most implementations 
of HAL/S. Even running stand-alone (on a host computer) one can obtain detailed error 
diagnostics related directly to the HAL/S source by statement number and block name, and 
optionally obtain an end of run formatted dump of all variables. And if a program termi- 
nates abnormally, a full traceback, showing the flow of control from block to block, will be 
given. Another package allows one to request dumps and traces of variables while running in 
a batch environment. This package can also provide a detailed log of real-time transactions, 
showing the transitions from process to process. Moreover, certain implementations provide 
the capability of "functional simulation," or FSIM, of another target computer. In this 
usage, the amount of memory used is approximated by allocating variables in the same fash- 
ion as on the target machine. Also, the extent of CPU utilization is estimated for the target 
machine with a running accumulation of time maintained automatically. The FSIM facility 
is very useful in cases where the target machine is not commonly available or is difficult to 
use. One very valuable feature available under FSIM is the "profile" capability: a listing can 
be generated which shows the number of times each HAL/S statement in the program com- 
plex was executed. The estimated total execution time for each statement, and other statis- 
tics, allow the efficiency of programs written in HAL/S to be attacked at the point of 
greatest leverage. 

One host computer contains an interactive HAL/S debugger. This program uses informa- 
tion from the simulation data files as well as "hooks" inserted in the machine code to allow 
debugging at the HAL/S level (i.e., without knowing any details of the underlying com- 
puter). Breakpoints can be set by statement number or label. For instance, "AT LOOP + 3;" 
sets a breakpoint three HAL/S statements after the label "LOOP". Variables can be 
inspected and modified by their symbolic names; all values are entered or presented in the 
standard external format. Data aggregates may be subscripted or printed in entirety. Since 
the SDFs contain full type information, there is no need to debug in hexadecimal or octal, 
or to continually specify display formats. Since HAL/S programs reference variables via 
scoping rules, this debugger provides a SCOPE command. This command has a block name 
as its argument: references to variables in subsequent commands are interpreted as they 
would be in the named block. A SCOPE command is automatically performed when a 
breakpoint is reached; thus commands at a breakpoint can reference any variable that is 
visible from the block in which the breakpoint was hit. The SDFs contain sufficient 
information to allow similar capabilities in a "cross-debugger" to test actual flight code. 

The large amount of data contained in the compiler's outputs, especially the SDF's and 
the object modules, permits the development of many post-compilation analysis programs. 
Perhaps the best known of these is the HALSTAT program, which is used to accumulate 
global data about a program complex. HALSTAT performs three major functions: verifying 
the consistency of SDF's, printing statistics for each module, and giving a global dictionary 
of variables. SDF's are consistent if all variables shared by processes are in agreement with 
respect to such factors as data type, size, location, and so on. Variables are also checked on 
a global basis to insure that none are referenced that have not ever been assigned; if this situ- 
ation occurs a warning message will be given. Multitudinous statistics are printed for each 
HAL module in the program complex, giving the name of the module and the date of com- 
pilation, size statistics, and the modules' pattern both in terms of HAL/S blocks incorpo- 
rated and location of code sections. The global symbol directory (GSD) portion of HAL- 
STAT is a listing of every variable used in every module of the program complex, including 
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both compool and local variables. It shows not only variable attributes and locations, but 
also the cross reference data for each variable across all modules in which it is used. The 
cross reference shows both the HAL/S statements, by number, where an item is used, and 
also the way in which it is used, e.g., REFERENCED, ASSIGNED, SUBSCRIPT, etc. 

Additional programs have been developed to meet the needs of specific installations. 
One program provides a complete disassembly listing of a HAL/S load module, which shows 
clearly the relationships between the machine code instructions and the HAL/S source. 
Since the typical program complex's load module incorporates code from both HAL/S mod- 
ules and assembly language modules (from the runtime library), a list showing both of these 
is essential to review the integrated system. Another program provides the above disassem- 
bly capability but limits it to user-specified machine instructions, a facility that is very use- 
ful in assessing the impact of instructions that are not correctly implemented in a machine's 
hardware, or in determining the extent and nature of operating system interfaces. There is 
also a program which produces a list of all locations deemed to be invariant. After executing 
the load module for a period of time, one can dump the contents of memory and see if 
these "never-changing" memory locations have indeed changed, which would indicate a 
problem in the load module. Another program is used to compile, based upon programmer 
specification of the data items desired, a list of all parameters that will be patched. This list 
includes detailed information about each variable, such as type, size, and location, to allow 
it to be modified in the correct fashion. 

As more installations use HAL/S on an ever-growing number of target machines, the 
amount and diversity of the support software is certain to grow. The capabilities described 
here may and may not be present in a particular system, but like the HAL/S compiler itself, 
these utilities are written in a high order language, and as machine-independently as possible. 
The functional simulation and post-compilation analysis tools have proved so valuable in the 
Space Shuttle program that they may eventually become required components of any 
HAL/S compiler system. 



Appendix C C-l 



2.1A 



Appendix C: Answers to Exercises 
Solutions 



2.2A 



a) valid, identifier 

b) valid, keyword 

c) invalid 

d) valid, literal 

e) valid, identifier 

f) invalid 

g) valid, identifier 
h) valid, keyword 
i) invalid 

j) valid, keyword 
k) invalid 
1) valid, identifier 
m) valid, literal 

a) A X+B Y+C Z 

b) (A+B)/C + D/(E+F) 

c) 2**(N-1)/(2**N-1) 

d) X**3-3 X**2+3 X-l 

e) (X-l)**3 

f) 10**X**Y 

g) (10**X)**Y 

h) ((V.W)/(V.V)) V 
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2.2B 



2.3A 



a) '*' is not the multiplication operator in HAL/S. 
Correct expression: M X+B. 

b) Incorrect operator precedence. 
Correct expression: 2 (X+l). 

c) Multiplication is represented by a blank between two operands. 
Correct expression: X**(-2.5 N). 

d) Two operators may not occur in succession. 
Correct expression: C**(— 5). 

e) Spaces denoting multiplication of both numerator and denominator are missing. 
Correct expression: A C/(B D) or (A C)/(B D). 



DECLARE SCALAR INITIAL(l), X_DELTA, Y_DELTA; 

DECLARE TIME_DELTA SCALAR CONSTANT(l); 

DECLARE DELAY^FACTOR SCALAR CONSTANT(.5); 

DECLARE SCALAR, TEMPI, TEMP2, TEMP3; 

DECLARE COUNT INTEGER INITIAL(l); 

DECLARE POINT_A VECTOR; 

DECLARE ORIGIN VECTOR CONST ANT(O,0,0); 

DECLARE TRANSFORM MATRIX INITIAL( 1,0,0,0, 1,0,0,0,1); 



2A 



M 


ROOTS: 


M 


program; 


M 


DECLARE SCALAR, 


M 


A, B, C, R00T1, R00T2! 


M 


READ15) A, B, Ci 


E 


2 0.5 


M 


R00T1 = t-B + (8 -«ACI ) / 2 A; 


E 


2 0.5 


M 


R00T2 = (-B - IB - <* A C) ) / 2 A! 


M 


::r:iTE(6t rooti, root2; 


M 


close roots; 



2B 
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BOUNCE: 

program; 

declare scalar. 

HEIGHT, 

TIME INITIAL(O); 
HEIGHT = 110! 

1/2 
TIME = (2 HEIGHT / 32) ; 
HEIGHT = .35 HEIGHT; 

TIME = TIME + 2 (2 HEIGHT / 32) 
HEIGHT = .35 HEIGHT; 

TIME = TIME ♦ 2 (2 HEIGHT / 32) 
WRITEC6) TIME; 
WRITEC6) * TIME; 
CLOSE bounce; 



1/2 



1/2 



/* BOUNCE 1 */ 
/» BOUNCE 2 */ 
/» BOUNCE 3»/ 



2C 



EX2C: 
PROGRAM! 

DECLARE MASS OF EARTH SCALAR CONSTANTS. 983E27) ; 

DECLARE PI SCALAR CONSTANTC 3.14159265) ; 

DECLARE RADIUS SCALAR INITIALCtOOO 160934.*); 

DECLARE PERIOD SCALAR; 

2 3 0-5 

PERIOD = U«PI RADIUS ) / ( MASS_OF_EARTH 6.67E-8)) 

WRITEI6) PERIOD; 
CLOSE EX2C; 



2D 



M 


SOLUTION: 


M 


program; 


M 


DECLARE SCALAR, 


n 


A, B, C, D, E, F, X, Y; 


M 


REA0(5) A, B, C, D. E, f, 


M 


X = (E D - B F) / (A D - B C); 


M 


Y = (A F - E C) / (A - B C); 


M 


WRITE(6) X, Y; 


M 


close solution; 
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3.1A 



3. IB 



3.1C 



3.2A 



a) Integer; value is 1. 

b) Matrix (3 by 3); value is 

c) 2-vector; value is 



Solutions 



1 2 4 

2 3 5 
2 3 6 



TRAN MUL: 

program; 

declare m matrix constants, 8, 7, 6, 5, 4, 3, z, l)i 

« * 

WRITE<6) M TRANSPOSE! MM 
CLOSE TRAN MUL; 



a) 
b) 
c) 
d) 
e) 



(1+COS (2 X))/2 

ARCTAN(Y/X) 

M (R Z_DOT - Z R DOT) SIN(PHI) - M R Z PHI_DOT COS(PHI) 

ARCCOS((M/R-M A/N)/SQRT(2 M E+M**2 A**2/N**2)) 

LOG(TAN(X/2+PI/4)) 



a) 1:7: 0. 



13 
14 

15 



[?] G -° -l 1] 



DECLARE VI VECTOR(6) INITIAL(0,1, 2,3,4,5); 

DECLARE V2 VECTOR(6) INITIAL(10,1 1,12,13,14,15); 

DECLARE M22 MATRIX(2,2) INITIAL(5,6,7,8); 

DECLARE M35 MATRIX(3,5) INITlAL(7,4,l,-2 -5,6,3,0 -3 -6 5 2 -1 -4 

-7); ' ' ' ' ' 



3.2B 
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This is an example of how over-specifying a program may lead to inefficiency. Two 
answers are given here; the first follows the statement of the problem literally, while 
the second produces the same result in a different way. 



M 

11 

M 
M 
M 
M 
E 
M 
S 

E 

M 
S 

E 
M 
S 

E 
M 
M 



COMP_DOT: 

program; 

declare vector, 

orig vec initial! 1. 2, 3). 

RESULT_X; 
DECLARE ORIG.MAT MATRIX INITIAlll, 2, 3. *■ 5, 6, 7, 8, 9). 

RESULT X = ORIG VEC . ORIG_MAT i 
" l *.I 



RESULT X = ORIG VEC . ORIG.MAT ; 
" 2 " «,2 



RESULT X = ORIG VEC . ORIG_MAT ; 
" J »,3 



WRITE(6) RESULT.X-, 
CLOSE COMP_DOT; 



COUP DOT: 

program; 

declare vector, 

ORIG VEC INITIALd, 2, 3), 

RESULT X; 
DECLARE ORIGJ1AT MATRIX INITIALd, 2, 3, *, 5, 6, 7, 8, 9); 

~ - * 

RESULT_X = ORIG_VEC ORIG_MAT; 



WRITE(6) RESULT_X; 
CLOSE COMP_DOT; 
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3.2C 



3.5A 



21 

22 

23 

L24J 



WRITE(6) V41 will output the vector 

The first WRITE(6) M22 will output the matrix M ~ 6 1 

WRITE(6) M33 will output the matrix 

The second WRITE(6) M22 will output the matrix \° 1 1 






1 


2 


7 


8 


9 


11 


12 


13 



i) 


<-, — 


<>. 


/ ** 


ii) 


+, - 


<>, 


/ ** 


iii) 


+, - 


<>, 


/ ** 


iv) 


+, - 


<> 




v) 


<> 


* 




vi) 


<> 






vii) 


<>, 


/ 




riii) 


<> 






ix) 


+, - 


<> 




x) 


<>, 


I ** 





results scalar. 

results scalar. 

results scalar. 

results integer; 
results scalar. 

results vector; 
result matrix; 
result scalar. 

result vector. 

results vector. 

result vector. 

results matrix. 

results matrix. 



3A 



ANGLES: 

program; 

declare vector, 

VI, vz; 

REA0(5) VI, V2; 

WRITE* 6) ARCC05UV1 
CLOSE angles; 



V2) / (ABVAL(VX) ABVAL(V2)))K 
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3B 



TRANS: 

program; 

declare scalar, 

ALPHA, XI, X2, Tl, Y2, 
PI CONSTANT! 3. 1415); 

READ(S) XI, Yl; 

ALPHA = 17 PI / 180! 

X2 = (XI - 54000) COS! ALPHA) * ( Yl - 

Y2 = -1X1 - 54000) SIN(ALPHA) + (Yl 

KRITE(6> X2, Y2; 
CLOSE trans; 



118000) SIN( ALPHA); 
■ 118000) COS( ALPHA); 



3C 



a) V4 = VECTOR$4(MS(2,2), M$(3,3), M$(4,4), M$(5,5)); 

b) M22 = M$(2 TO 3, 8 TO 9); 

c) M34 = M$(5 TO 7, 7 TO 10); 

d) V10 = M$(9,*); 
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4.1A 



Solutions 

a) Compound conditions like 'A < B < C are not recognized by HAL/S. 

b) The THEN clause of an IF. . .THEN. . .ELSE group may not be an IF statement. 



c) The expression following the 'NOT' operator must be parenthesized. 



4.1B 



a) ED> 



A4 



A5 



A2 



A3 



b) Impossible: the ELSE clause of C2 branches into the ELSE clause of C3. 

c) Impossible: the THEN clause of C2 loops around, which would require travers- 
ing a line upward. 



d) 



J-. THEN THEN THEN , _ THEN, 

[s>i — E> — E> E> — [at 



ELSE 



Al 
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4.1C 



a) Not satisfied. 

b) Illegal. The correct syntax is NOT >. 

c) Satisfied. 

d) Satisfied. 

e) Illegal. Vector comparisons must involve subscripting. 

f) Not satisfied. 

g) (A>B)&(A<C) 

h) (Vn=S)&((C>=D)KD = 4)) 



4.1D 



4. 2 A 



IF W < L THEN SQ = 0; 
ELSE IF W > L THEN SQ = 0; 

ELSE SQ = 1; 
AREA = W L; 

IF SQ = THEN WRITE(6) 'NO SQUARE'; 
ELSE IF AREA < 4 THEN WRITE(6) 'SMALL SQUARE' 

ELSE WRITE(6) 'LARGE SQUARE'; 

1 




The original code was over 300 state- 
ments, while the new code is about 
160 statements. 

This change can be made in a valid 
HAL/S program: group C is removed 
entirely from the IF statement, which 
now consists only of the section of 
the flow chart lying within the dotted 
rectangle. 



C-10 Appendix C 

Note that this flowchart: 



r^i 



does represent a shorter program than the original, though it cannot be translated 
into a valid HAL/S program, as this would require branching into the ELSE clause 
of the condition, which is not legal in HAL/S. 



4.2B 



M 


SOLUTION: 


M 


program; 


M 


DECLARE SCALAR, 


M 


A, B, C, 0, E, F. X, Y; 


(1 


READ<5) A, B, C. D, E. Fi 


(1 


IF (AO -BC) = THEN 


M 


KRITEC6) 'NO SOLUTION EXISTS'; 


tl 


ELSE 


M 


do; 


M 


X = (E D - B F> / (A D - B C); 


M 


Y = (A F - E C> / (A D - B C); 


M 


WRITE16) X, Y; 


M 


end; 


1 


close solution; 



4.2C 



IF Y < X THEN DO; 

IF Y < X - 1 THEN Y = Y + 1; 
ELSE Y = Y - 1; 
END; 

ELSE IF Y > X + 1 THEN X = X - 1; 
ELSE X = X + 1; 
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4.2D 



a) The line from C4 to C represents a branch into the ELSE clause of C3, which is 
illegal in HAL/S. 

b) The following flowchart removes the difficulty without making any change in 
the order of execution of any statements: 

ELSE /\ THEN 




ELSE y\THE 



ELSE yVTHEN EL se y\THEN 

C3 



ELSE 






THEN 



IF CI THEN DO; 

IF C3 THEN D; 

ELSE C; 
END; 
ELSE IF C2 THEN DO; 

IF C4 THEN C; 
END; 
ELSE A; 
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c) If the flowchart had been structured, it would have been awkward even to draw 
lines from both C3 and C4 to C, and the fact that there was an illegal construct 
in the flowchart would have been obvious. To illustrate: 



E> 



THEN 



ELSE 



-E> 



THEN 



■GD 



ELSE 



THEN 



-E> 



ELSE 



4.2E There are several possible solutions, one of which is given here 



THEN 



ELSE 
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HAL/S code to implement the revised flowchart would be: 

IF (CI AND (NOT C3)) OR (NOT CI AND C2 AND C4) THEN C; 
ELSE IF CI THEN D; 
ELSE IF nC2 THEN A;' 

4.3A 

a) Relational expression, not satisfied. 

b) Boolean expression, false. 

c) Relational expression, satisfied. 

d) Illegal. 

e) Illegal. 

f) Relational expression, satisfied. 

g) Boolean expression, false. 



4.4A 



DO CASE I + 1; 
ELSE SCRAMBLE 
SCRAMBLE = 4 
SCRAMBLE = 
SCRAMBLE = 5 
SCRAMBLE = 3 
SCRAMBLE = 1 
SCRAMBLE = 2 

END; 
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Solutions 



5.1A 



5. IB 



5.1C 



5. ID 



Since the loop control variable is an integer, while the increment is the scalar value 
. 1 , on each iteration 1 will be added to . 1 , the resulting 1 . 1 will be rounded to 1 , and 
the control variable will never change. That is to say, the loop will never terminate, 
so the question is unanswerable. 



DECLARE V VECTOR(5); 

DECLARE NEG_PART INTEGER; 

DO FOR NEG__PART = 5 TO 1 BY -1; 

IF V$NEG_PART < THEN EXIT; 
END; 

Note that if no component of V is negative, NEG^PART will equal zero upon exit 
from the loop. 



N is equal to 14 on exit from the loop, because in DO FOR I = 1 TO N BY 2, N is 
evaluated only once, upon entry to the loop, when its value is 9. The loop will there- 
fore be executed five times, leaving N equal to 14. 



a) The code assigns the value .2 to all the elements of A. 
b) 



DO FOR X = 1 TO 5; 
DO FOR Y = 1 TO 

AS(X,Y) = .2; 
END; 
END; 
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5.2A 



a) The program will write the values: 

2 INITIAL_VALUE 

4 INITIAL_VALUE 

8 INITIAL_VALUE 

16 INITIAL_ VALUE 

b) DO FOR X = 1 TO 4; 

N = 2 N; 
WRITE(6) N; 
END; 

is one possibility; 

DO FOR X = 1 TO 4; 

WRITE(6) 2**N; 
END; 

is another, and clearly there are many others. 



5.3A 



DECLARE V VECTOR(5); 

DECLARE NEG_PART INTEGER; 

DO FOR NEG_PART = 1 TO 5 WHILE V$NEG_PART > = 0; 

END; 

IF NEG_PART 5 THEN NEG_PART = 0; 



5.4A 



5.5A 



If V$ 1 = 0, the code shown will not exit with NEG_PART = 1 , as it should. This 
occurs because the UNTIL clause will not be evaluated for the first time until 2 has 
been assigned to NEG^PART in the DO FOR loop. 



a) 1<X<101 

b) X= 101 
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5A 



For this solution, we take the original DELTA to be 
that INITIAL < FINAL. 



FINAL-INITIAL 

5 



and assume 



NEU_APPROX, POINT; 



SIMPSON: 

program; 

declare scalar, 

initial_value, final value, old approx, 
declare scalar, 

delta, epsilon; 
old_apfrox, new_apfrox = 0; 
readi5) initiallvalue, final value, epsilon; 
delta = (final_value - initial value) / 5; 
do until cnew_approx - old approx) < epsilon; 
0ld_appr0x = neu_approx; 
new_approx = sqrt( initial value) + sqrt< final value); 

DO FOR POINT = INITIAL_VALUE ♦ DELTA TO FINAL>ALUE - (DELTA / 2 ) BY DELTA! 

NEW_APPROX = NEW_APPROX ♦ 2 SQRT( POINT) ; 
END; 

NEM_APPROX = NEW_APPROX DELTA / 2; 
DELTA = DELTA / 2; 
END; 

WRITEC6) NEW APPROX; 
CLOSE SIMPSON; 



5B 



a) This program admittedly an inefficient one, will print all prime numbers from 3 
through 499. 

b) A solution that does not change the computations performed is: 



BETTER: 




PROGRAM; 




OECLARE INTEGER, 




NUMBER, DIVIDER; 




DO FOR NUMBER = 3 TO 499; 




DO FOR DIVIDER = 2 TO NUMBER 


- l; 


IF MODINUMBER, DIVIDER) = 


THEN 


exit; 




end; 




IF DIVIDER = NUMBER THEN 




KRITE(6> NUMBER; 




end; 




close better; 





6.1A 



6. IB 
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Solutions 



a) Illegal X is set to 3, but a variable with the INITIAL attribute is not considered 
to be computable at compile time, so the declaration of LIST_ONE is errone- 
ous. 

b) Legal. LIST^ONE is an array of 4 scalars, value (.2,.2,.2,.2). LISTJTWO is an 
array of 4 integers, values unknown. 

c) Legal LIST_THREE is an array of 1 8 scalars, value 
(.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,?,?,?,W>?> ? .)- 

d) Legal. LIST_FOUR is a 9 by 3 array of 27 scalars, value 



.1 

.2 
? 



.2 
1 



e) Illegal. The ARRAY specification must precede the type specification. 



M 
M 

m 
n 
n 
n 
n 

M 
M 
H 
M 
M 

s 

M 
M 
M 
S 

E 

tl 

n 
s 

M 

C 

M 
S 



exerciser: 
program; 

declare m hatrix(5> 5)5 

DECLARE TIME ARRAY1100) SCALAR INITIAL(O); 
DECLARE SCALAR INITIAL(O), 

TMIN, TMAX, TMEAN, SUM_OF_SqUARES, STAN_DEV, 
DECLARE INTEGER, 

I, J, k; 
DO FOR I = 1 TO 100 ; 
DO FOR J = 1 TO 5! 
DO FOR K = 1 TO 5! 
M = RANDOM; 
J.K 

end; 
end; 
time = runtime; 

i 

« *-i 
M = M ; 

TIME = RUNTIME - TIME ! 
I I 

end; 

NOW PROCESS THE HUNDRED-SAMPLES IN THE ARRAY I TIME) 
TMAX, TMEAN, TMIN = TIME ; 
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DO FOR I = Z TO 100; 

TKiAN = TMEAN * TIME ; 
I 

IF TIME > TMAX THEN 
I 

TMAX = TIME ; 
I 

IF TIME < THIN THEN 
I 

TMIN = TIME ; 
I 

EHO; 

TMEAN = TMEAN / 100; 
COMPUTE STANDARD DEVIATION 

SUM_OF_SQUARES = 0; 
DO FOR I = 1 TO 100; 

2 
SUM_OF_SQUARES = SUM_OF_SQUARES » (TIME - TMEAN) ; 

I 

end; 

stan_dev = sqrt(sum_of_souares / 100 1; 

CLOSe'exERCISE 1 "-" '' ™ IN ' ' " EAN = '' ™ EAN ' ' " AX = '' ™ A *' ' s ™»°>""> DEVIATION = ', STANJJEV; 



b) 



EXERCISER: 
PROGRAM; 

DECLARE H MATRIX(5. 5)i 
DECLARE TIME SCALAR INITIAL(O); 
DECLARE SCALAR INITIAL* 0), 

TMIN, TMAX, TMEAN, SUM_OF_SQUARES, 
DECLARE INTEGER, 

I. J, k; 
TMEAN, SUM_0F_5qUARES = Oi 
TMAX = -l; 
THIN = 1000; 
DO FOR I = 1 TO 100; 
DO FCR J : 1 TO 5! 

DO FOR K = 1 TO 5! 

fi - random; 

J,K 

end; 
END; 
TIME = RUNTIME; 

* *-l 

m = m ; 

time = runtime - time; 

tmean = tmean + time; 



/* LESS THAN ANY POSSIBLE TIME VALUE 
/* GREATER THAN ANY FEASIBLE TIME VALUE 



SUM OF SQUARES 


= SUM 


OF 


SQUARES 


IF 


TIME 
TMAX 


> TMAX 

= TIME 


THEN 






IF 


TIME 
TMIN 


< TMIN 
= TIME 


THEN 






end; 












TMEAN 


= TMEAN / 100; 







2 
STAN.DEV = SBRTUS'JM_OF_sqUARES / 100) - TMEAN )! 

close'exercise 1 ::^ '' ™ IN ' ' """ = ' Tr, " N ' ' "** = ' ' Tmx ' ' STANDiR0 deviation 
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6.1C 



EXAMPLE_2= 
PROGRAM; 

DECLARE GYRO INPUT ARRAY! 12) INTEGER INITIAL! 0); 
DECLARE ATT RATE ARRAY! 12) SCALAR; 
DECLARE SCALE ARRAYI3) CONSTANT I . 013, .026, .013); 
DECLARE BIAS SCALAR INITIAL157.296 ) ; 
DO FOR TEMPORARY I = TO 9 BY 3; 
DO FOR TEMFORARY J = 1 TO 3. 

ATT RATE = GYRO_INFUT SCALE * BIAS; 

I+J I+J J 

end; 
end; 
close example_2; 



6. ID 



EXAMPIE_4A: 
PROGRAM » 

DECLARE A ARRAYC5) SCALAR; 

DECLARE TEMP SCALAR; 

TEMP = A ; 
5 



DO FOR TEMPORARY T 
A = A ; 
Ttl T 

END! 

A = TEMP; 
1 

CLOSE EXAMPLE_*A; 



* TO 1 by -i; 



6.2A 



a) Legal 

b) Illegal 

c) Legal 

d) Legal 

e) Legal 
Illegal 
g) Legal 
h) Legal 
i) Illegal 
j) Legal 



k) Legal 

1) Illegal 

m) Illegal 

n) Legal 

o) Illegal 

p) Legal 

q) Legal 

r) Legal 

s) Legal 

t) Illegal 



6.2B 



A single arrayed statement takes the place of one or more loops and a statement to 
perform the same operation on each array element that the arrayed statement per- 
forms on the entire array. If the programmer writes these loops, loop variables must 
be declared, correct loop limits must be coded, and such loops must be nested if the 
array is of two or more dimensions. This means extra work for the programmer, and 
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6.3A 



6.3B 



6.3C 



more complicated and potentially incorrect or unreadable code. If an arrayed state- 
ment is coded, the compiler does the bookkeeping, and may even be able to produce 
more efficient code, since loop variables will not need to be saved for later reference 



a) 



b) 



c) 
Z 

d) A 

S = 

S = 

s = 

s = 



{[\ 


i .r 
.i 


"? ? ? "1 " 

? ? ? 


\Li . 

(CO 

r ?i 


.lj 
.i 


|_7 9 9 

C:]\ ' 


9 
9 


9 
9 

"7" 

9 
_?. 


[I]/ 



"7 7 7' 
777 

9 9 9 



.1 




.i 








7 




9 




9 




9 




9 




7 

9 


L.iJ 




L- 1 J 




_.i. 




9 




7 




7 




7 




7 




_7_ 



= (.l,.l,.l,.l,.l,.l,.l,.l, ?,?,?,?,?,?,?,?,?,?,?,?,?,?, ?,?,?,?) 

X$(3:l,3); 
Y$(3,l:3); 
Z$(7:3); 
AS21; 



M$(l,2 TO 
M$(l,5 TO 

MS(1,8) 



M$(l,2 TO 4) 
M$(l,5 TO 7) 
M$(l,8) 

MS(1,2 TO 4) 
M$(l,5 TO 7) 
MS(1,8) 



X$(2:3,*) 
X$(3:l,*) 
X$(3:2,l) 

Y$(2,3:*) 
Y$(3,l:*) 
YS(3,2:1) 

Z$(6:*); 
Z$(7:*); 
Z$(8:l); 



from X 



from Y 



from Z 



M$(l,2 TO 8) 



A$(16 TO 22); 



6.3. 1A 
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PRIMES: 

program; 

replace limit by "100"; 

declare prime array! limit) boolean initial! true ) ; 

do for temporary i = z to limit; 

if prime then 

I: 



DO FOR TEMPORARY J = 2 I TO LIMIT BY I; 



END; 
KRITEI6) i; 

end; 



end; 
close primes; 



6.4.1 A 



DECLARE TEMP VECTOR(27); 



TEMP = VECTORS27(X); 

M$(l,2 TO 8) = TEMP$(16 TO 22); 

TEMP = VECTOR$27(Y); 

M$(l,2 TO 8) = TEMP$(16 TO 22); 

TEMP = VECTOR$27(Z); 

MS(1,2 TO 8) = TEMPS(16 TO 22); 

The assignment from A is already quite simple. 
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6.4. IB 



ARRAY(2,3) INTEGER: 

b) ARRAY(12) INTEGER: 

c) ARRAY(3) SCALAR: 

d) 



ARRAY(2,6) INTEGER: 



e) 



1 2 3 
( 1 2 3 } 

(12 3 12 3 12 3 12 3) 
(.1 .1 .1) 

,12 3 12 3, 



MATRIX(3,3): 



VECTOR(6): 



1 2 3 1 2 y 





.1 
.1 


.1 
.1 


.. 


.1 


.1 


1 1 






2 






3 






1 






2 






3 







6A 



MEOIAH: 

fkossam; 

declare integer, 

x, temp, smallest; 

DECLARE VALUE_LIST ARRAr(25) INTEGER INITIAL(76, 67, 65, 54, <tl, 32 
73. 123, 23*, 3'+5, i.56, 567, 678, 789, 690, 9S7, B76 , 765); 
00 FOR X = 1 TO 13; 
SMALLEST = X; 
DO FOR TEMPORARY J = X + 1 TQ 25! 

IF VALUE_LIST < VALUE_LIST THEN 

J SMALLEST 

SMALLEST = J; 
END; 

if smallest -= x then 
do; 

temp = value_list ; 



21, 12, 23, 34, 45, 56, 67, 



sr 


ALLEST 


VALUE_LIST 

SMALLEST 


= VALUE LIST 


VALUE_LIST = TEMP 
X 




end; 
end; 
writet6) 'median = ', value_ 


LIST ; 
13 


CLOSE median; 
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6B 



DECLARE TIMING_DATA ARRAY(4,26) INTEGER INITIAL(O); 
DECLARE I INTEGER; 



DO FOR I = 1 TO 25; 

TIMING_DATA$(1 TO 3,1) = TIME_VALUES$(M); 

TIMING_DATAS(4,I) = SUM(TIM_VALUES$(*,I)); 
END; 
DO FOR I = 1 TO 3; 

TIMING_DATA$(I,26) = SUM(TIM_VALUES$(I,*)); 

END; 
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Solutions! 



7.1A 



7.1B 



7.1C 



7.2A 



7.2B 



line 3 : the variable Y is known only within the scope of function PROC 1 

line 6: Function PROC1 cannot invoke itself 

line 7: PROC2 has not been declared or assigned. 

Block: May be invoked from block(s) : 

2 1,3,4,5,6 

3 1,2 

4 3,5,6 

5 3,4 

6 5 



Move the code block defining ALMOST_EQUAL from the end of the program to a 
point before ALMOST_EQUAL is invoked; i.e., immediately before or after the 
block MASS. 



The function RANDOM returns a scalar X with uniform distribution in the range 
(K X < 1 . The function ROLL uses the implicit scalar-to-integer conversion sup- 
plied by HAL/S, with implied rounding. Its results may be described by a table: 

a random value in the range : yields an amount of: 

0< X <.l \ 

.K X <.3 2 

.3< X <.5 3 

.5< X <.7 4 

-7< X <.9 5 

.9< X <1 6 

Thus, it is clear that the probabilities that ROLL will return 1 and 6 are 1/10 
while the probabilities of 2,3 ,4, and 5 are 1 /5 . 
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b. 



FIX_ROLL= 

program; 

declare count integer initiauo); 
declare i integer! 

ROLL: 

FUNCTION integer; 

RETURN TRUNCATE (6 RANDOM +1); 
CLOSE; 

do for i = 1 to 5; 

do until roll + roll = 7; 
count = count + 1; 

eno; 
end; 
write(6) count; 

CLOSE FIX ROLL; 



7.2C 



M 


FIND GCDS: 


M 


progr'ah; 


M 


DECURE ARRAY15) INTEGER, 


M 


X, y; 


M 


DECLARE I INTEGER; 


M 


GCD: 


M 


FUNCTIONtll, 12) INTEGER; 


M 


DECLARE INTEGER. 


M 


11, 12, X, Y, r; 


M 


X = 12; 


M 


Y = li; 


M 


DO WHILE X -= 0; 


M 


R = REMAINDERS, X); 


M 


Y = x; 


M 


x = r; 


M 


end; 


M 


RETURN ABSIY); 


M 


CLOSE gcd; 


« 


READC5) IX], [Yl; 


11 


DO FOR X s 1 TO 5; 


M 


IF GCD(X , Y ) -= I THEN 


S 


I I 


n 


WRITE16) X , Y , GCOtX , Y ); 


s 


II II 


n 


end; 


n 


close find_gcds; 
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FIX_ROLL: 

program; 

declare count integer initiauo); 
declare integer, 

i, roll1, roll2; 

ROLL: 

PROCEDURE ASSIGN! A); 
DECLARE A INTEGER; 
A = TRUNCATE! 6 RANDOM * 1); 
CLOSE roll; 

DO FOR I s 1 TO 5; 

DO UNTIL ROLU * R0L12 = T, 
COUNT = COUNT ♦ l; 
CALL ROLL ASSIGN! ROLU ); 
CALL ROLL ASSIGN! ROLLE > ; 
END; 
END; 

WRITE! 6) COUNT; 
CLOSE fix_roll; 



The solution in which ROLL is a function is clearly preferable, because the code to 
invoke ROLL is much simpler in that case. 

In general, when a block is to produce as output a single value of any HAL/S type, 
the FUNCTION form will tend to produce more comprehensible code than the 
PROCEDURE form. This is because the calling sequence for a function mirrors 
closely the mathematical notation for a function, and because often (as in this ex- 
ample) use of the functional form avoids the introduction of "dummy" variables 
with no intrinsic meaning to the algorithm being implemented. In the procedure 
form, these dummy variables must be used as ASSIGN parameters. 
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7A 



M DROP: 

m program; 

m declare scalar, 

m drop_time, bounce_time; 

k declare scalar ihitial(o), 

m time, horiz_dist; 

m declare height scalar initial! 110 >; 

m declare horiz_speed constants); 

m declare g constant! 32) ; 

m declare i integer; 

m replace nun3er_0f_b0unces by "10"; 

m time_to_drop: 

m function! h); 

m declare h scalar; 

m return s3rti2 h / g); 

m close time_to_drop; 

m horiz motion: 

m procedure! t) assign(h); 

m declare scalar. 

M T, h; 

M H = H + HORIZ_SPEED T; 

M CLOSE horiz_motion; 

II BOUNCE: 

M PROCEDURE ASSIGN! H, T); 

M DECLARE SCALAR, 

M H, t; 

M H = .75 H! 

tf T - SQRTI2 H / G); 

M CLOSE bounce; 

M DO FOR I = 1 TO NUMBER_OF_BOUNCES; 

M DROP TIME = TIHE TO DROP! HEIGHT); 

M CALL~HORIZ_MOTION!DROP_TIME) ASSIGN(HORIZ_DIST); 

M TIME = TIME ♦ DROP TIME; 

M WRITEI6) 'BOUNCE', I, 'TIME', TIME, 'HORIZONTAL DISPLACEMENT' , HORIZ_DIST; 

M CALL BOUNCE ASSIGN! HEIGHT, BOUNCE_TIME ) ; 

M CALL H0RIZ_MOTION(BOUNCE_TIME) ASSIGN! HORIZ_DIST ) ; 

M TIME = TIME ♦ BOUNCE_TIME; 

M END; 

n CLOSE DROP; 
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SIMPSON: 
PROGRAM; 

DECLARE SCALAR, 

INITIAL_VALUE, FINAL VALUE, OLD APPROX, NEW APPROX, POINT; 
DECLARE SCALAR, 

DELTA, EPSILON, A, B, C, D! 
POLY: 

FUNCTIONIX) SCALAR; 
DECLARE X SCALAR; 
3 2 

return ax + b x ♦ c x + 0; 
close poly; 

old_apfrox, new_approx = 0; 

readcs) a, b, ct d, initial value, final value, epsilon; 

delta = (final_value - initial value) / 5; 

do until (neu_approx - olo_approx) < epsilon; 

old_approx = new approx; 

new_afprox = poly!initial_value) * poly(final_value ) i 

do for point = initial_value * delta to final value - (delta / 2 ) by delta; 
new_approx = new_approx + 2 poly( point); 

end; 

new approx = new approx delta / z% 

delta = delta / 2; 
end; 

writei6) new approx! 
close simpson; 
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M DROP: 

M PROGRAM; 
M DECLARE SCALAR, 

M DROPJTIME, BOUNCE TIME; 

M DECLARE SCALAR INITIAL(O), 
M TIME, HCRIZJJIST; 

M DECLARE HEIGHT SCALAR INITIAL! 110 ) ; 
M DECLARE HORIZ SPEED CONSTANT!*); 
M DECLARE G CONSTANT! 32 ) ; 
M DECLARE I INTEGER; 
M REPLACE NUMBER_OF_B0UNCES BY "10"; 

M TIME_TO_DROP: 

M FUNCTION(H); 
M DECLARE H SCALAR; 
M RETURN SCRTC2 H / G); 

M CLOSE TIME_TO_DROP; 

M BOUNCE: 

M PROCEDURE ASSIGN! H, TJ; 
M DECLARE SCALAR, 
M H, t; 

n H = .75 H! 

M T = SQRTI2 H / G); 

M CLOSE bounce; 

M 00 FCR I = 1 TO NUMBER OF_BOUNCES - l; 
M DROP_TIME = TIME_T0J3R0P!HEIGHT); 
M HORIZ_DIST = HORIZ_DIST ♦ HORIZ_SPEED DROP_TIME; 
■ M TIME = TIME ♦ CROP TIME; 
M KRITEI6) 'BOUNCE', I, 'TIME', TIME, 'HORIZONTAL DISPLACEMENT' , HORIZ.DIST; 
M CALL BOUNCE ASSIGN! HEIGHT, BOUNCE TIME); 
M HORIZ_DIST = HORIZ_DIST ♦ HORIZ_SPEE0 BOUNCE_TIME ; 
M TIME = TIME + BOUHCE_TIME; 
M END; 

M DROPJTIME = TIME_TO DROP(HEIGHT) ; 
M HORIZJUST = HORIZ_DIST t HORIZ_SPEED DROP_TIME; 
M TIME = TIME * DROP~TIME; 

M WRITE16) 'BOUNCE', 1, 'TIME', TIME, 'HORIZONTAL DISPLACEMENT' , HORIZ_DIST; 

M CLOSE DROP; 
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Solutions 



,1A 



.IB 



.1C 



,2A 



There are several advantages to naming I/O channels: 

1) If several channels are in use, giving them descriptive names makes it clearer 
what any particular I/O statement is doing. 

2) References to REPLACE macros are collected in the cross-reference table, allow- 
ing all I/O statements to be found quickly and easily. 

3) If it becomes necessary to reassign a channel, the channel number need only be 
changed once, in the REPLACE statement, and all I/O statements, referencing 
that channel will automatically be changed. 



The expressions in the list are evaluated one by one, and data items converted to 
character string standard external format. These strings are then assembled into lines 
and transmitted in an implementation dependent fashion to the output device asso- 
ciated with the channel number specified in the WRITE statement. 

Any legal HAL/S expression may appear in a WRITE statement. There are no restric- 
tions whatsoever on output. 



a) 1 and 5. 

b) 1,3,4, and 5. 



a) First, the three matrices in MAT ARR1 will be printed, then the three matrices 
in MAT_ARR2. 

b) The easiest way to do this is with loops: 

DO FOR TEMPORARY I = 1 TO 3; 

DO FOR TEMPORARY J = 1 TO 3; 

WRITE(6) MAT ARR1$(I:I,*),TAB(20),MAT_ARR2$(I:J,*); 

END; 

WRITE(6) SKIP(2); 
END; 

It could also be done with a single WRITE statement: 

WRITE(6) MAT ARR 1 $( 1 : 1 ,*),TAB(20),MAT_ARR2$( 1 : 1 ,*),SKIP( 1 ), 
COLUMN( 1 ),MAT_ARR 1 $( 1 :2,*),TAB(20),MAT_ARR2$( 1 :2,*),SKIP( 1 ) 
COLUMN(1),MAT_ARR1$(1:3,*),TAB(20),MAT_ARR2$(1:3,*),SKIP(3) 
COLUMN( 1 ),MAT_ARR 1 $(2:1 ,*),TAB(20),MAT_ARR2$(2 : 1 ,*),SKIP( 1 ) 
COLUMN( 1 ),MAT_ARR 1 $(2: 2,*),TAB(20),MAT_ARR2$(2: 2,*),SKIP( 1 ) 
COLUMN(1),MAT_ARR1$(2:3,*),TAB(20),MAT_ARR2$(2:3,*),SKIP(3) 
COLUMN( 1 ),MAT__ARR 1 $(3: 1 ,*),TAB(20),MAT_ARR2S(3 : 1 ,*),SKIP( 1 ) 



.2B 



;.3A 



S.3B 



S.4A 



!.4B 



I.4C 
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COLUMN( 1 ),MAT_ARR1 $(3 :2,*),TAB(20),MAT_ARR2$(3 : 2,*),SKIP( 1 ), 
COLUMN(1),MAT_ARR1$(3:3,*),TAB(20),MAT_ARR2$(3:3,*), 



1) b 

2) a, c 

3) d 

4) c (paged files only) 

5) a, e 

6) none of a-e ; overrides the default SKIP( 1 ) 

7) c 

a) INTS = (8,7,7); SCALS = (-1,225,4) 

b) INTS = (0,1,1); SCALS = (7.2,0,0) 

c) INTS = (2,1,3); SCALS = (2.49,0,2.51) 

Change the READ statement to: 

READ(5) COLUMN(8),INTS,SKIP(l),COLUMN(8),SCALS; 



All are legal character subscripts. Only a, b, c, and e are legal vector subscripts; all 
the others have partition sizes not computable at compile time. 



The output will be similar to this: 

ABC ABCABC 
123AB BC456 
1223ABC456 
ABCABC ABC 



All the expressions listed are true. 
i.5.1A 

Only character strings may be read using the READALL statement. 
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8.5. IB 



8A 



All characters on the input file are retrieved by the READALL statement, no matter 
what they are. Character strings to be input using the READ statement must be sur- 
rounded by single quotes, which are not placed into the target variable. Further- 
more, single quotes represent themselves in READALL input, while they must be 
represented by a pair of quotes in succession in READ input. 



REVERSE: 

prosram; 

declare array! 5) character! s) , 

char arr1, char arr2; 
declare x integer; 

REV: 

FUNCTION(C) CHARACTERISE 
DECLARE C CHARACTER!*); 
DECLARE CHARACTERS), 

CTEMP, CHAR REV; 
DECLARE INTEGER, 
It l; 

CHAR_REV, CTEMP = C5 

THEN 



IF CTEMP = 
RETURN 



L = LENGTH I CTEMP); 
DO FOR I = 1 TO L; 
t i 

CHAR_REV = CTEMP ; 
I L+l-I 

END; 

RETURN CHAR_REV; 
CLOSE REV, 

READI57 [CHAR ARR11, [CHAR ARR2]; 
DO FOR X = 1 TO 5; 

CHAR ARR1 = TRIM! CHAR ARR1 ); 
X: X: 



CHAR ARR2 = TRIM! CHAR ARR2 ); 
X: " X: 



WRITEI6) C0LUMN!5), REVICHAR ARR1 ), C0LUMNU5), REVICHAR ARR2 ); 

X: " X: 

end; 
close reverse; 
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M 
M 
M 

m 
» 

M 
E 
M 
M 

n 


decode_names: 
program; 

declare names arrat150, 2) character ( 15) ; 

declare inline character! 80 1 ; 

declare i integer; 

replace no_of_names by "50"; 




INLINE = " ; 

DO FOR I = 1 TO NO_OF_NAMES! 
CALL GET_NAME(I); 




E 
M 
S 


IF NAMES = 'S' THEN 
1.2 = 1 




E 
M 
S 


WRITE16) NAMES II ' ' II NAMES ; 
1,1: I'2 ; 




(1 
M 
M 

n 

M 

E 
M 
M 


end; 

GET NAME: 

procedure(n); 
declare integer, 
n, k; 

if inline = ■ " then 
CALL get.line; 




E 
M 
M 


K = INDEX! INLINE. '.' ); 
IF K = THEN 




E 
M 

n 

M 

E 
M 
S 


CALL FIRST_AND_LAST( INLINE, N); 
ELSE 

do; 

call first and last( inline . n) 

1 TO K-I 




E 
M 
S 


INLINE = TRIMt INLINE ); 
K+l TO » 




M 

M 
M 
M 
M 
M 
E 
M 


end; 
first_ano_last: 
procedureTc. ni; 

declare c characters), 
n integer, 
i integer; 




I = INDEXIC, ' • >; 




E 
M 
S 


NAMES = C J 
N,l: 1 TO 1-1 




E 
M 
S 


NAMES = C 

N,£: 1+1 TO * 




M 
M 
M 


CLOSE first_and_last; 

GET LINE: 

procedure; 




E 
M 
E 
M 

n 
n 
n 


READALLC5) INLINE; 

INLINE = TRIMl INLINE); 
CLOSE GET LINE; 
CLOSE get name; 
close decode_names; 
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NUMEER_TO_ENGLISH: 
PROGRAM; 

DECLARE INTEGER, 

N, H, T, u; 

DECLARE CHARACTER! 30), 

LEFT_PART, RIGHT_PART; 

DECLARE TENS ARRAY! 9) CHARACTER! 7) INITIAL! 'TEN 

'SEVENTY', 'EIGHTY 1 , 'NINETY'); 

DECLARE TEENS APRAYC5) CHARACTERI9) INITIAL! ' ELEVEN 

, 'SIXTEEN 1 , 'SEVENTEEN', 'EIGHTEEN', 'NINETEEN'); 

DECLARE UNITS ARRAY! 9) CHARACTERI5) INITIAL! 'ONE' , 'TWO 

, 'EIGHT', 'NINE'); 

READI5) N; 

IF N = THEN 
DO; 



TWENTY', 'THIRTY', 'FORTY', 'FIFTY', 'SIXTY', 

'TWELVE', 'THIRTEEN', 'FOURTEEN', 'FIFTEEN' 

THREE', 'FOUR', 'FIVE', 'SIX', 'SEVEN' 



LEFT_PART = " 1 




RIGHT PART = 'ZERO'; 




end; 




ELSE 




do; 




H = DIVIN, 100); 




T = DIVIREMAINDERIN, 100), 


10) 


U = REMAINDERS, 10); 




IF H > THEN 





LEFT PART = UNIT5 



LEFT_PART = 
IF U = THEN 



RIGHT_PART = TENS 

T 

ELSE 



do; 



IF T > 1 THEN 

RIGHT_PART = TENS 

T: 

ELSE IF T = 1 THEH 

RIGHT_PART = TEENS 

U 

ELSE 

RIGHT PART = UNITS 



WRITEI6) LEFT_PART II RIGHT PART; 

close; 
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9.2A 



Solutions 



STRUCTURE X: 
1 Al, 

2 CI VECTOR, 

2 Dl MATRIX, 
1 Bl, 

2 El VECTOR, 

2 Fl MATRIX; 

STRUCTURE Y: 

1 A2 SCALAR, 

1 B2, 

2 D2 ARRAY(5) VECTOR, 
2 E2 ARRAY(5) VECTOR, 

1 C2 SCALAR; 



9.2B 



a) 



b) 



.B A' 

A i\ 

VI V2 B VI 



TEST. 
TEST. 
TEST. 
TEST_ 
TEST. 
TEST. 
TEST. 
TEST 
TEST 
TEST. 
TEST 
TEST 



DATA 

DATA 
_DATA. 

DATA. 
_DATA. 
_DATA 

DATA 
_DATA 
_DATA. 

DATA. 

DATA. 

DATA. 



.L.M.A 

.L.M.B.V1 

.L.M.B.V2 

.L.N.A.B 

.L.N.A.V1 

.L.N.C 

.I.J.A 

.I.J.B.V1 

.I.J.B.V2 

.l.K.A.B 

.I.K.A.V1 

I.K.C 



TEST DATA 
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9.2C 



c) STRUCTURE DATA: 
1 L, 
2 M, 

3 A INTEGER, 
3 B, 

4 VI VECTOR, 
4 V2 VECTOR, 
2 N, 
3 A, 

4 B INTEGER, 
4 VI VECTOR, 
3 C SCALAR, 
1 I, 
2 J, 

3 A INTEGER, 
3 B, 

4 VI VECTOR, 
4 V2 VECTOR, 
2 K, 
3 A, 

4 B INTEGER, 
4 VI VECTOR, 
3 C SCALAR; 

d) All of the assignments shown are legal. 



STRUCTURE MINOR: 
1 V VECTOR, 
1 T SCALAR; 

STRUCTURE MAJOR: 

1 XI MINOR-STRUCTURE, 
1 X2 MINOR-STRUCTURE, 
1 X3 MINOR-STRUCTURE, 
1 X4 MINOR-STRUCTURE, 
1 X5 MINOR-STRUCTURE; 

DECLARE DATA MAJOR-STRUCTURE; 



READ(5) DATA; 
CALL PROCESS(DATA); 



The procedure PROCESS must be modified to accept a MAJOR-structure as input 
instead of the ARRAY(2) it originally took. » 
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STRUCTURE MINOR: 

1 V VECTOR, 

1 T SCALAR; 
DECLARE DATA MINOR-STRUCTURE(5); 



READ(5) DATA; 

CALL PROCESS(DATA); 

Now PROCESS must be changed to accept a 5-copy MINOR-structure as its argu- 
ment. The data is still read in the same order as before. 



9.3B 



a) A$(25;) or A$25 

b) A.B$(*;3) 

c) A.C$(10 TO 20;) 

d) A.D$(75 TO 85;) 

e) A.D$(1;1) 



type: A 1 -STRUCTURE 

type: ARRAY(IOO) INTEGER 

type: ARRAY(ll) SCALAR 

type: ARRAY(ll) VECTOR(6) 

type: SCALAR 



9.3C 



M 


MEAN: 


M 


program; 


n 


STRUCTURE PERSON: 


n 


I SS INTEGER DOUBLE. 


M 


1 SALARY SCALAR, 


M 


1 JOB CO0E INTEGER, 


M 


I PNAME CHARACTER C 32); 


n 


DECLARE COMPANY PERSON-STRUCTURE! 100 ) 


E 
H 


READ(5) {COMPANY}; 


M 


HRITEC6) SUMl {COMPANY. SALARY}) / lOOt 


M 


CLOSE MEAN! 



9.4A 



a) No: X.E.F has the RIGID attribute; Y does not. 

b) Yes. 

c) Yes. 

d) Yes. 

e) Yes. 
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9.4B 



9A 



a) The 20th copy of A. 

b) The 1 0th and 1 1 th copies of A. 

c) C from the first copy of A. 

d) D from the 4th-6th copies of A. 

e) The 4th-6th components of D 
from all copies of A. 



type: A-STRUCTURE 

type: A-STRUCTURE(2) 

type: INTEGER 

type: ARRAY(3) VECTOR(6) 

type: ARRAY(20) VECTOR(3) 



Structures allow the programmer to organize data of mixed types into one logical 
unit that may be input, output, assigned, and passed as a parameter. When a struc- 
ture is passed as a parameter, overhead is saved, as all the components of the struc- 
ture became available to the called procedure or function without being passed in- 
dividually as separate parameters. 

The use of structures also allows the transfer of an aggregate of assorted data in a 
single FILE I/O statement. In I/O contexts, multiple-copy structures are particularly 
convenient for reading or writing large blocks for the sake of efficiency. 



9B 
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BEST.ONE : 
PROGRAM! 

STRUCTURE ITEMJJATA: 
1 VEC VECTOR, 
1 TIMETAG SCAUR; 
STRUCTURE UNIT DATA: 

1 ACCEL ITEMJ3ATA-STRUCTURE, 
1 VEL ITEM_DATA-STRUCTURE, 

1 PITCH itemjjata-structurei 

STRUCTURE BEST: 

1 BEST_ACCEL ITEM_OATA-STRUCTURE . 
1 EEST_VEL ITEM_DATA-STRUCTURE, 
1 BEST_PITCH ITEM DATA-STRUCTURE! 
DECLARE BEST DATA BEST-STRUCTURE! 
DECLARE SYSTEMJUTA UNITJJATA-STRUCTUREl 3) ! 
MIDDLE: 
FUNCTION! DFU) ITEM DATA-STRUCTURE! 

DECLARE OFU ITEM_DATA-STRUCTURE< 3) ! 

IF DFU TIMETAG = MIOVALl DFU. TIMETAG . DFU. TIHETAG 
1! 1! Z 



/* DATA FROM UNIT »/ 
DFU. TIMETAG ) THEN 
3! 



IF DFU TIMETAG = MIDVAUDFU.TIMETAG , DFU. TIMETAG , DFU. TIMETAG ) THEN 
21 li 2! 3> 



RETURN OFU ! 
3! 



CLOSE MIDDLE! 

READI5) <SYSTEM_DATA)l 

* + * 

BEST DATA.EEST ACCEL = MIDDLE! {SYSTEM_OATA. ACCEL) )! 

+ + * 

BEST DATA. BEST VEL = MIODLEI {SYSTEM_DATA.VEL} )! 
BEST_DATA.BEST_PITCH = MIDDLE! (SYSTEMJJATA. PITCH) 1! 

* : 

CLOSE BEST ONE! 
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Solutions 



10.1A 



10.1D 



?u n ™t»~™° Ugh t0 ^ statement followi "g the ON ERROR statement, unless 
the ON ERROR statement has: 

1 ) caused a GO TO or RETURN statement to be executed, or 

2) specified SYSTEM or IGNORE, in which case either control returns to the pro- 
gram at the point where execution was interrupted, or the program terminates 
depending on the particular error. 



10.1B 



If the error should occur after control has left the loop, an unexpected transfer of 
control into the loop will occur, potentially causing disastrous results since loop vari- 
ables may have unusual values, and TEMPORARY variables may even have been re- 
defined since leaving the loop. 

The compiler normally enforces a ban on branching into DO . . . END groups In this 
case where the compiler is unable to do so, the programmer should follow the same 



10.1C 



1) SYSTEM: If no ON ERROR statement is active for the current error or if the 
active one is ON ERROR SYSTEM, the standard action, if any, is taken and an 
error message is sent. 

2) IGNORE: If an ON ERROR IGNORE statement is in effect for the error in 
question, the standard fix-up is taken and no error message is sent. 

3) If an ON ERROR statement defining a user action is in effect for the specified 
error, then the user code receives control without possibility of returning to the 
point where the error occurred. No error message is sent. 



Error Specification Precedence 

ERROR$(m:n) l first 

ERROR$(m:) 2 

or 
ERROR$(m) 2 

ERROR 3 last 
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10.2A 

An error handler may be deactivated: 

1 ) when flow of control leaves the block containing the handler, 

2) when it is superseded by another error handler, and 

3) when an OFF ERROR statement of the same form is executed. 

10.2B 

a) All three error handlers are still active: both OFF ERROR statements were ig- 
nored. 

b) ON ERRORS(l:l) IGNORE; and ON ERROR$(2:) IGNORE; are still active. 
The first OFF error statement cancelled the first ON ERROR statement, and the 
second had no effect. 

10.3A 

The SEND ERROR statement is used: 

1 ) to simulate the occurrence of system-defined errors for testing, and 

2) to allow the user to define errors and write error handlers for them. 



10.3B 



10A 



When an applicable error handler is found in the local block, higher level blocks need 
not be searched, as handlers in the calling blocks are overridden by the local handler. 



a) No message 

b) Message 

c) No message 

d) No message 

e) Message 

f) No message 

g) No message 
h) Message 

i) No message 

j) Message 

k) Message 

1) No message 



C-42 Appendix C 

Solutions 



11. 1A 



If several programmers are working on a single large project, it will probably be 
convenient to assign them separately-compilable sections of the program com- 
plex. 

In a multiprogramming environment where several PROGRAMS are to run con- 
currently, there is no way to compile them all in a single compilation step, so a 
program complex must be created. 

If the overall structure of a program is fixed, but small sections are under-going 
revision, separating those sections out as COMSUBs may allow those parts to be 
revised and recompiled without requiring recompilation of the entire program. 



11. IB 



Just as if the COMSUB were an internal procedure, the error environment of the 
caller is searched for an applicable error handler, then the environment of the caller's 
caller, and so on. 



11. 1C 



a) Compiling a COMPOOL reserves space for the variables declared therein. Also, 
in most implementations, a template is produced when the COMPOOL is com- 
piled. 

b) The COMPOOL template, when included in the compilation of another compila- 
tion unit, makes the variables declared in the COMPOOL known to that compila- 
tion unit, without causing any space to be reserved for those variables. 



1 1..2A 



The SCALARs A and B can only be referenced inside the program P but outside the 
FUNCTION block F. Inside of F, scoping rules will cause A and B to refer to the 
local INTEGER variables. 



11. 2B 



FILTER does not require any of the data in GNCPOOL, so there is no need to in- 
clude the template for GNC_POOL in the compilation of FILTER. 



11.2C 



If several compool templates are included in a single compilation, names of variables 
must be unique, because there is only one scoping level outside the main block of a 
compilation. Hence, it is in general desirable to give compool variables unique 
names, so that it is possible to refer to any compool from any other compilation 
unit if necessary. 
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11. 2D 



a) A template for FILTER is needed in order to compile NAVIGATION, and with 
this order of compilation, it would need to be hand coded. 

b) In this case, CONTROL needs the template for FILTER. 

c) No template need be hand coded, as all will be available when they are needed. 

d) This order of compilation is particularly inconvenient; all templates will need to 
be hand coded. 



11. 3A 



a) It is possible that the savings account for one ID might be updated, then the pro- 
cedure interrupt and another account updated. When control returned to the 
first task, the updating of the checking account would then be done incorrectly, 
transferring funds from one customer to another. 

b) If SAVINGS and CHECKING are declared with the LOCK attribute, and the 
transfer is enclosed in an UPDATE block, there is no possibility of an incorrect 
transfer of funds as described above. 



11.3B 



a) In this case, any interruption of an execution of AWARD_INTEREST by an- 
other process that calls AWARDINTEREST may cause either an error in up- 
dating the account, or in logging the interest. 

b) Make the procedure AWARD^INTEREST EXCLUSIVE. Then there is no possi- 
bility that two processes will attempt to run AWARD INTEREST concurrently. 
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Solutions 



12. 1A 



























r 


80 200 280 400 480 600 680 800 880 1000 msec. 










n r 


80 160 480 560 

n n 


740 880 



160 320 



680 



12.1B 



80 



280 360 



560 640 



13 a 



840 920 



80 160 



493 



I 



653 



986 



160 240 



740 820 



12. 1C 



SCHEDULE X PRIORITY(l), REPEAT UNTIL 3.5; 

SCHEDULE Y IN 2.5 PRIORITY(2), REPEAT EVERY 1 UNTIL 6; 



12.2A 



The AT clause allows a process to be scheduled at a definite, predetermined time. 
The ON clause, on the other hand, allows a process to be scheduled depending on 
occurrences of an unpredictable nature. Either one can be appropriate, depending 
on the desired effect. 



12.2B 



Q is active only at B. 



12.2C 



SIGNAL X; will cause X to become TRUE just long enough for all active event ex- 
pressions referencing X to be evaluated. In particular, no code testing X as a 
BOOLEAN variable will ever find it TRUE as a result of SIGNAL X;. The sequence 
SET X; RESET X; will also cause X to become TRUE, then return to FALSE, but if 
in the meantime the process executing the SET and RESET statements relinquishes 
control, X will remain SET during execution of some HAL/S code, and may be 
found to be TRUE if tested. 
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12.2D 



SCHEDULE X PRIORITY(l), REPEAT UNTIL TRAN2; 

SCHEDULE Y ON TRAN1 PRIORITY(2), REPEAT EVERY 1 UNTIL 6; 



12.2E 



12.2F 



a) Unlatched; there is no need to specify LATCHED, so take the default. 

b) Latched; it is not possible to signal several events simultaneously. 

c) Latched; an unlatched event will always test FALSE. 

d) Latched; RESET is illegal for an unlatched event. 

e) Unlatched; presumably the loop is to execute once for each event transition, 
which would probably not happen if the event were SET and remained on. 

SCHEDULE T ON MASTER PRIO(999) REPEAT; 



T: TASK; 

RESET COMPL; 

WAIT FOR "MASTER; 

SET COMPL; 

WAIT FOR MASTER; 
CLOSE T; 



12.3A 



M 


P: 


tl 


program; 


M 


DECLARE OENOM INTEGER INITIAL! 10); 


M 


SCHEDULE T PRIORITYl 999) , REPEAT UNTIL 1; 


M 


T: 


M 


task; 


M 


WAIT UNTIL 1 / DENOM; 


M 


WRITEC6) RUNTIME; 


M 


DENOM = DENOM - 2; 


M 


IF DENOM < 1 THEN 


M 


DENOM = l; 


M 


CLOSE t; 


M 


CLOSE Pi 



12.3B 



Unless something causes P to exit from the DO WHILE TRUE loop, CANCEL P will 
have no effect. 

If X is necessary to keep P as it is, it can be stopped with: 

TERMINATE P; 

However, it is safer simply to remove the DO WHILE TRUE; and END; statements 
from P, and derive the same effect from writing: 
SCHEDULE P PRIORITY (100), REPEAT; 
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12A 



n 


FSW: 


» 


PROGRAM; 


n 


DECLARE VECTOR, 


H 


POSITION, ATTITUDE, VELOCITY ; 


n 


DECLARE SCALAR, 


n 


PITCH_COMMAND , ROLL_CCMMAND; 


H 


DECLARE DESTINATION VECTOR; 


H 


'DECLARE ARRAYC1, 


n 


SENSED ATTITUDE VECTOR, 


ti 


SENSEOJrtLOCITY VECTOR; 


M 


INPUT_PROC: 


n 


PROCEDURE; 


M 


CLOSE INPUT PROC; 


M 


ELEVON CMDS: 


M 


procedure; 


H 


CLOSE ELEVON CMOS; 


M 


TELEMETRY: 


M 


frocedure; 


M 


CLOSE TELEMETRY; 


n 


RUDDER_CMDS: 


rt 


procedure: 


n 


CLOSE RUDDER_CMOS: 


H 


GUIDANCE: 


n 


PROCEDURE; 


« 


CLOSE GUIDANCE! 


ti 


FC GAINS: 


M 


procedure; 


n 


CLOSE FC_GAINS1 


« 


NAVIGATION: 


n 


procedure: 


M 


CLOSE NAVIGATION; 


M 


DISPLAY_UPDT: 


M 


procedure; 


M 


CLOSE DISPLAY UPDT; 


n 


SCHEDULE TI PRIORITY! <i), REPEAT EVERY .1 


n 


SCHEDULE T2 PRIORITY! 3), REPEAT EVERY .2 


» 


SCHEDULE T3 PRIORITY!2), REPEAT EVERY .<+ 


n 


SCHEDULE T4 PRIORITYI1), REPEAT EVERY .8 


n 


Ti: 


M 


TASK; 


M 


CALL INPUT PROC; 


M 


CALL ELEVON CMOS; 


M 


CALL telemetry: 


n 


CLOSE Ti; 


ti 


T2: 


n 


task; 


H 


CALL RUDDER CUDS; 


M 


CALL guidance: 


M 


CLOSE T2i 


H 


T3: 


M 


task: 


M 


CALL FC_GAINSi 


H 


CLOSE T3; 


n 


T*: 


M 


task: 


M 


CALL NAVIGATION; 


H 


CALL DISPLAY UPDT; 


M 


CLOSE T4i 


H 


CLOSE FSW; 



/* SCALE AND FORMAT DATA FROM SENSORS » 
/* COMMAND AEROSURFACES */ 
/* DOWNLINK STATUS VARIABLES * 
/* CONTROL YAW AXIS */ 
/# COMPUTE DESIRED FLIGHT PATH « 
/* COMPUTE CONTROL LAW GAINS * 
/* COMPUT REAL POSITION AND VELOCITY * 
/* REFRESH CRT */ 
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12B 



FSU: 

program; 

declare vector, 

position, attitude, velocity; 

declare scalar, 

pitch_command, roll_command i 

declare destination vector; 

declare arrays), 

sensf-d_attitu3e vector, 
sen5ed_velocity vector; 

declare t1jjone event; 
ihput_fpoc: 
procedure; 
close input_proc; 
elevon_cnds: 
procedure; 
close elevon_cmds; 
telemetry: 
procedure; 
close telemetry; 
rudder_cmds: 
procedure; 

CLOSE RUDOER^CnDS; 

guidance: 
frocedure; 
close guidance; 

FC_GAINS= 

procedure; 

close fc_gains; 

navigation: 

procedure; 

close navigation; 

display_updt: 

procedure; 

close di5playjjpdt; 

SCHEDULE Tl PRIORITY(l), REPEAT; 

SCHEDULE T2 PRI0RITY(2>, REPEAT; 

SCHEDULE T3 PRIORITYI3), REPEAT! 

SCHEDULE T<» PRIORITY14 ), REPEAT; 
Tl: 
TASK; 

CALL INPUT_PROC; 

CALL ELEVDN_CMOS; 

CALL TELEMETRY; 

SIGNAL Tl_DONE; 
CLOSE Tl; 
T2: 

task; 

wait for t1_d0nej 
wait for ti_oone; 

CALL RUDDER_CtfDS; 

CALL GUIDANCE; 
CLOSE TZJ 
T3: 

task; 

do for temporary i = 1 to 4; 

wait for t1_d0ne; 
end; 
call fc gains; 

CLOSE T3; 

T<»: 

task; 

00 for temporary i = 1 to si 

wait for t1_d0ne; 
end; 

call navigation; 
call displayjjpots 

CLOSE T4; 

CLOSE fsh; 



/* SCALE AND FORMAT DATA FROM SENSORS */ 
/* COMMAND AEROSURFACES */ 
/* DOWNLINK STATUS VARIABLES */ 
/* CONTROL YAW AXIS */ 
/* COMPUTE DESIRED FLIGHT PATH */ 
/* COMPUTE CONTROL LAW GAINS */ 
/* COMPUTE REAL POSITION AND VELOCITY */ 
/* REFRESH CRT */ 



This solution guarantees that the various tasks will never be executing any of their 
procedures simultaneously, thus avoiding the need for UPDATE block protection of 
any shared variable, providing that none of the blocks will contain WAIT statements. 
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13. 1A 



Solutions 

A) IF FLAGS AND BIN' 1 10000000000' = BIN'l 10000000000'. 

B) IF FLAGS AND BIN'010101010101' = BIN'000000000000'. 

C) IF (FLAGS AND BIN'l 1 1111000000' = BIN'000000000000') OR 
(FLAGS AND BIN'0000001111 11' = BIN'0000001 1 1 111') 

D) IF FLAGS = BIN'101010000010'. 

E) IF FLAGS AND BIN'l 11010000011' = BIN'101010000010'. 



13. IB 



13. 1C 



M 
M 
M 
M 
M 
E 
M 
S 


FLIP: 

FUNCTION! B) BIT! 12); 

DECLARE B BIT! 12); 

DECLARE FLIPPED BIT(12); 

DO FOR TEMPORARY X = 1 TO 12; 


FLIPPED = B ; 
X 13-X 


M 
E 


end; 


M 
M 


return flipped! 
close flip; 



exercise c: 
program; 

declare table array! 50) bit! 24); 

SET_BITS: 

PROCEDURE! ENTRY, VALUE); 
DECLARE INTEGER, 

ENTRY, VALUE; 

TABLE 

DIV(ENTRY,4>:6 AT (6 MOD! ENTRY, <t)+l > 

CLOSE SET BITS; 
GET_BITSt~ 

FUNCTION! ENTRY ) INTEGER ; 
DECLARE ENTRY INTEGER; 



RETURN INTEGER! TABLE 

CLOSE GET_BITS; 
CLOSE EXERCISE_C; 



BIT (VALUE); 
6 AT *-5 



); 



DIV!ENTRY,<i):6 AT 6 MOD(ENTRY,4)tl 
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13. ID 



NORMAL: 

FUNCTIONt UNNORM) BIT<32>; 

DECLARE UNNORM BIT(32H 

DECLARE B BITC32); 

DECLARE COUNT INTEGER; 

IF UNNORM = HEX'OOOOOO 1 THEN 
9 TO 32 

RETURN HEX'OOOOOOOO'; 

B = UNNORM; 

DO FOR COUNT = 1 TO 6 WHILE B = HEX'OS 

1 AT 9 



B = BIT(SHL(INTEGER(B ). <t>>! 
2<t AT 9 2* AT 9 



B = BIT (INTEGERIB ) - l)i 
7 AT Z 7 AT »-6 7 AT 2 



RETURN B; 

close normal; 



13.1E 



OUTPUT = 1E5 INTEGER(INPUT$(4 AT 1)) + 1E4 INTEGER(INPUTS 

(4 AT 5)) + 
1E3 1NTEGER(INPUT$(4 AT 9)) + 1E2 INTEGER(INPUT$ 

(4 AT 13)) + 
1E1 INTEGER(INPUT$(4 AT 17)) + INTEGER(INPUT$ 

(4 AT 21)); 



13. IF 



OUTPUT = INTEGER(BIT$(@HEX) (CHARACTER$(@HEX) (INPUT))); 



13.2A 



1 ) Partitions of bit strings. 

2) Columns of a matrix. 

3) A structure node with copiness. 
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13.2B 



a) Yes, if a name variable points to some variable in an outer code block and a vari- 
able is declared in an inner code block with the same identifier as that name 
variable points to, the outer variable can still be referenced. 

b) No, need more information than the address which is all the name variable 
allows. 

c) Yes, name variables allow sharing. Several name variables can point to the same 
data item. 

d) No, it is possible to go up and down name pointers but not reference an absolute 
address. 

e) No, name variables can only point to data of the same type they were declared. 



13.3A 



STRUCTURE LOOP: 

1 VALUE INTEGER, 

1 NEXT NAME LOOP-STRUCTURE; 
DECLARE CIRCLE LOOP-STRUCTURE; 

NAME(CIRCLE.NEXT) = NAME (CIRCLE); 



13.3B 



STRUCTURE TQE: 

1 TIME SCALAR, 

1 ACTION NAME ACTIONS-STRUCTURE, 

1 NEXT NAME TQE-STRUCTURE; 
STRUCTURE ACTIONS: 

1 ACTION INTEGER, 

1 AFFECTED-PROCESS NAME PROCESS_CONTROL-STRUCTURE, 

1 NEXT NAME ACTION-STRUCTURE; 



line 28 



DECLARE NAME TQE-STRUCTURE, NEWTQE, ENT; 
DECLARE NAME ACTIONS-STRUCTURE, NEW ACT, ENT ACT; 

NEWTQE.TIME = WHEN; 
NEWACT.ACTION = WHAT; 
NAME(NEWACT.AFFECTED_PROCESS) = NAME(PROCNAME); 



after 
line 3 7 



NAME(ACTV_Q.ACTION) = NAME(NEWACT); 
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after 
line 40 

IF ENT.NEXT.TIME = NEWTQE.TIME THEN DO; 

IF NAME(ENT.ACTION) = NAME(NULL) THEN DO; 
NAME(ENT.ACTION) = NAME(NEWACT); 
RETURN; 
DO UNTIL NAME(ENTACT.NEXT) = NAME(NULL) 

NAME(ENTACT) = NAME(ENTACT.NEXT); 
END; 

NAME(ENTACT.NEXT) = NAME(NEWACT); 
RETURN; 

after 44 

NAME(ENT. ACTION) = NAME(NEWACT); 
after 50 

NAME(NEWTQE. ACTION) = NAME(NEWACT); 

13.3C 



If PCB is first or last in the ready queue, the code to remove PCB from the ready 
queue will not work. To avoid the difficulty, rewrite STALL as follows: 

STALL: PROCEDURE ASSIGN(PCB); 

DECLARE PCB PROCESS_CONTROL-STRUCTURE; 

C 

C Remove from ready queue 

Q 

IF NAME(PCB.LAST)=NULL THEN NAME(PCREADY)=NAME(PCB.NEXT); 

ELSE NAME(PCB.LAST.NEXT)=NAME(PCB.NEXT); 

IF NAME(PCB.NEXT)-1=NULL THEN NAME(PCB.NEXT.LAST)=NAME 

(PCB.LAST); 
C 
C Add to stalled queue: same as in the text 

C 

NAME(PCB.NEXT) = NAME(STALLED); 
NAME(STALLED) = NAME(PCB); 
CLOSE STALL; 
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13A PC_ENQUEUE: PROCEDURE ASSIGN(PCB); 

DECLARE PCB PROCESS_CONTROL-STRUCTURE- 
DECLARE PCPTR NAME PROCESS„.CONTROL-STRUCTURE; 

IF NAME(READYPC) = NULL THEN DO; /*empty queue*/ 

NAME(READYPC) = NAME(PCB); ' 

NAME(PCB.LAST), NAME(PCB.NEXT) = NULL- 
RETURN; 

END; 

NAME(PCPTR) = NAME(READYPC); 

DO WHILE NAME(PCPTR.NEXT) 1= NULL; 

IF PCPTR.PRIORITIE<PCB.PRIORITIE THEN DO; 
NAME(PCB.LAST) = NAME(PCPTR.LAST); 
NAME(PCB.NEXT) = NAME(PCPTR); 
IF NAME(PCB.LAST) 1= NULL THEN 

NAME(PCB.LAST.NEXT) = NAME(PCB); 
RETURN; 
END; 

NAME(PCPTR) = NAME(PCPTR.NEXT); 
END; 
C 

C PCB IS LOWEST PRIORITY: TAG ON END OF LIST 

C 

NAME(PCPTR.NEXT) = NAME(PCB); 

NAME(PCB.NEXT) = NULL; 

NAME(PCB.LAST) = NAME(PCPTR); 
CLOSE PC_ENQUEUE; 
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13B 



M 
M 

M 

n 
n 

M 

M 

E 

M 

E 

M 

E 
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» 

E 

M 
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(1 

E 

M 

E 

M 

M 

E 

M 
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S 

E 

M 
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M 
M 
M 
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HEXCALC: 
PROGRAM; 

DECLARE INTEGER DOUBLE. 
INTI, INT2; 

DECLARE INLINE CHARACTER! 80); 

DECLARE PLUS BOOLEAN; 

DECLARE K INTEGER; 

READALL15) INLINE; 

INLINE = TRI(1( INLINE)! 

K = INDEX! INLINE, '♦'); 
IF K > THEN 

PLUS = true; 
ELSE 

do; 

plus = false; 

k = index! inline. ■-'); 
end; 

INT1 = INTEGER (BIT (INLINE >>! 
MOUBLE SHEX 1 TO K-l 



INT2 = INTEGER (BIT (INLINE >>: 
JDOUBLE SHEX Ktl TO * 



IF PLUS THEN 

INT1 = INTI ♦ INT2; 
ELSE 

INTI = INTI - INT2; 
WRI T E(6) INTI, CHARACTER (BIT(INTD); 
SHEX 



CLOSE HEXCALC! 
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Solutions 

14A A = ((B C) @ _, + D) @3 ; 

14B If the absolute value of the fraction in C is > 0.5, then the expression: 
B = (2 C) 
will cause overflow; whereas 

B = 2 C@_] ; 
can never cause an overflow. 
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Appendix D 






HAL/S Keywords 




ABS 


DOUBLE 


NAME 


SINGLE 


ABVAL 




NEXTIME 


SIZE 


ACCESS 


ELSE 


NONHAL 


SKIP 


AFTER 


END 


NOT 


SQRT 


ALIGNED 


EQUATE 


NULL 


STATIC 


AND 


ERRGRP 




STRUCTURE 


ARCCOS 


ERRNUM 


OCT 


SUBBIT 


ARCCOSH 


ERROR 


ODD 


SUM 


ARCSIN 


EVENT 


OFF 


SYSTEM 


ARCSINH 


EVERY 


ON 




ARCTAN 


EXCLUSIVE 


OR 


TAB 


ARCTANH 


EXIT 




TAN 


ARCTAN2 


EXP 


PAGE 


TANH 


ARRAY 


EXTERNAL 


PRIO 


TASK 


ASSIGN 




PRIORITY 


TEMPORARY 


AT 


FALSE 


PROCEDURE 


TERMINATE 


AUTOMATIC 


FILE 


PROD 


THEN 




FLOOR 


PROGRAM 


TO 


BIN 


FOR 




TRACE 


BIT 


FUNCTION 


RANDOM 


TRANSPOSE 


BOOLEAN 




RANDOMG 


TRIM 


BY 




READ 


TRUE 




GO 


READALL 


TRUNCATE 


CALL 
CANCEL 




REENTRANT 




HEX 


REMAINDER 


UNIT 


CASE 




REPEAT 


UNTIL 


CAT 

CEILING 


IF 


REPLACE 


UPDATE 


IGNORE 


RESET 




CHAR 


IN 


RETURN 


VECTOR 


CHARACTER 


INDEX 
INITIAL 
INTEGER 
INVERSE 


REMOTE 




CLOCKTIME 

CLOSE 

COLUMN 


RIGID 
RJUST 
ROUND 


WAIT 

WHILE 

WRITE 


COMPOOL 




RUNTIME 




CONSTANT 


LATCHED 




XOR 


COS 


LENGTH 


SCALAR 




COSH 


LINE 


SCHEDULE 






LJUST 


SEND 




DATE 


LOCK 


SET 




DEC 


LOG 


SHL 




DECLARE 




SHR 




DENSE 


MATRIX 


SIGN 




DEPENDENT 


MAX 


SIGNAL 




DET 


MIDVAL 


SIGNUM 




DIV 


MIN 


SIN 




DO 


MOD 


SINH 
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Appendix E 
I/O With Formats 

The ability to do FORMAT style I/O has been implemented in several HAL/S compilers. 
This is an experimental feature of the language. It will only be adopted into the standard 
HAL/S language after some experience with its use. 

This Appendix describes FORMAT I/O as it is currently implemented. The reader 
should keep in mind that FORMAT I/O constructs are subject to change. 

El THE FORM OF READ AND WRITE STATEMENTS 

The use of FORMATS in READ and WRITE statements allow for more flexible Input/ 
Output operations. FORMATS, however, may not be used with READALL or FILE 
statements. 

Standard I/O was discussed in Chapter 8. With FORMAT I/O, a character expression 
following the keyword IN controls the format of data: 

WRITE(6) ELTNO IN '14', VALUE IN 'F8.2'; 

The character expression has no special restrictions; it can be computed at runtime: 

DECLARE FIELD-LENGTH INTEGER; 

WRITE(6) (VAR1/VAR2) IN T II CHARACTER(FIELD-LENGTH); 

E.2 LISTS OF DATA ELEMENTS 

The last example shows how one FORMAT character expression can control output 
for several elements. The list of elements is merely enclosed in parenthesis. 

READ(5) (V1,V2,CH1) IN 'F8.2,F10.3/A6'; 

is equivalent to : 

READ(5) VI IN 'F8.2',V2 IN 'F10.3', SKIP(l), COLUMN(l), CHI IN 'A6'; 

A FORMAT character expression is a list of FORMAT items separated by commas or 
slashes(/). A slash is equivalent to SKIP(l), COLUMN(l). 

There are two types of format items. I/O control items are the standard SKIP, LINE, 
PAGE, COLUMN, AND TAB. They may appear within FORMAT character expressions and 
have their normal HAL/S meaning. 
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Other format items are summarized in the following table. More detail will follow. 



Item 


Use 


Example 


Sample 
Output 


Sample 
Input 


Interpreted 

As 


I format 
F format 

E format 


INTEGER 
SCALAR 

SCALAR with 
exponents 


15 
F6.2 

E9.1 


#98.67 
P-7.1E-02 


ppp42 
98.672 
W9867 

W246E+14 


42 

98.672 
98.67 

24.6E+14 


U format 


INTEGER,SCALAR, 
or CHARACTER 


U5 


W97 


#p P 42 


42 


A format 
X format 


CHARACTER 

blanks on output, 
skips on input 


A4 

X2 


#ABC 

n 


0ABC 
9Z 


14 ABC 
skipped 


P format 


INTEGER and 
SCALAR 


PANS= 

J) J). ^P J) uP 


ANS=-4.2E-8 


-4.2E-8 


-4.2E-8 


Quote string 


CHARACTER on 
output, skips on 
input 


"ANS=d" 
i 


ANS=d 




ABCDE 


skipped 



When a data item is processed, the format character expression is scanned from left to 
right until an I, F, E, U, A, or P item is found. Slashes, I/O control, X items, and quote 
strings are processed as they occur. The next data item is processed similarly, except the 
scanning of the format character expression resumes where it last stopped. Arrayed data 
items are treated element by element. 

There are several features which make writing format character expressions easier. A 
number may precede a format item to indicate repetitions: 

'5F8.2' IS THE SAME AS 'F8.2,F8.2,F8.2,F8.2,F8.2' 

Parenthesis may be placed around several format items and a repetition given for the entire 
expression: 

'2(E16.7/)' IS THE SAME AS 'E16.7/E16.7/' 

If the end of a format character expression is reached and more data items remain, there 
are two possibilities. 

1 . If the format character expression contains no parentheses, scanning resumes from 
the beginning. 

2. Otherwise, scanning resumes from the open parenthesis corresponding to the last 
closed parenthesis. A repetition is taken into account if present. 



For example : 

WRITE(6) ARRAY-X 

$(1 TO 100) 

produces 10 rows of 10 figures each. 



IN '10F8.2/': 
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E.3 I FORMAT ITEMS 

I format items are used for INTEGER I/O. They have the form: 

In 

where n is an unsigned positive integer giving the field length. Implicit INTEGER/SCALER 
conversion is allowed. Variables or expressions which are of type CHARACTER or BIT may 
not be handled with I FORMAT. 

For WRITE statements, a sign is printed only if the number is negative. The number is 
right-justified in the output field. If the output field is too small, asterisks are printed and an 
error is sent. For example: 

DECLARE A INTEGER INITIAL(3); 
WRITE(6) (A,A+8,A-4,A+99) IN '12'; 

produces $31 1-1 ** with an overflow error. 

E.4 F AND E FORMAT ITEMS 

F FORMAT items are used for decimal quantities. E FORMAT items are used for deci- 
mal quantities written in scientific notations (i.e., with exponents). 

The following four forms are allowed: 

Fn Fn.d 
Fn Fn.d 

n is an unsigned positive integer giving the field length, d is an unsigned positive integer 
giving the number of decimal places. Only INTEGER or SCALAR variables or expressions 
can be read or written with F and E FORMATS. 

For READ statements, there is no difference between E and F FORMAT items. The 
input may be signed. If it contains a decimal, this overrides the d specification. Otherwise, 
I gives the number of decimal digits. 

READ(5) A IN 'F6.3' 

interprets: 

$12.34 as 12.34 
#1234 as 1.234 
$.1234 as .1234 

An exponent may be supplied of the form: 

E ± k 
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where either E or ± may be omitted. Blanks are allowed preceding the sign, the first digit E 
±, and the first digit of the exponent. ' ' 

For WRITE statements with F FORMAT, the string printed is: 

— aaaa.bbb 
m n 

n is the second number in the FORMAT, m is determined by the magnitude of the quantity 
to be printed. The minus sign is printed only if the quantity is negative. 

If there is enough room, a zero is added to the left of the decimal if there are no other 
digits there. Any additional positions are filled with blanks from the left. 

For WRITE statements with E FORMAT, the quantity printed is: 

-a.bbbEicc 
n 

The minus is printed only if the quantity is negative. One significant digit is printed to the 
left of the decimal point. This is if the quantity is 0. n is taken from the FORMAT item. 

For both F and E FORMAT items, if the field length is insufficient, then asterisks are 
printed and an error is sent. 

E.5 A FORMAT ITEMS 

A format items are used for CHARACTER data only. They take the form: 
An 
where n is the field length. 

For READ statements, if the field length n is greater than the declared maximum length 
of the variable, the leftmost characters of the field are selected. Otherwise, the current 
length of the CHARACTER variable is set to the field length. 

For WRITE statements, if the field length written is greater than the current length of 
the variable, then blanks are added to the left. Otherwise, the leftmost characters are written 
to fill the field. 

E.6 FORMAT I/O WITH BIT VARIABLES 

There is no FORMAT item specifically for BIT variables. Instead, the BIT and CHAR- 
ACTER conversion functions may be employed with CHARACTER variables (see Section 
13.1). 
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For example: 

DECLARE BITS BIT(8) INITIAL HEX 'IF'; 
WRITE(6) CHARACTER $(@BIT) (BITS) IN 'A8'; 

produces: 

00011111 

For READ statements, BIT values must be read into CHARACTER variables and the 
BIT conversion function applied. 

E.7 U FORMAT ITEMS 

U (undefined) FORMAT items are used for INTEGER, SCALAR, and CHARACTER. 
They take the form: 

Data Type Interpretation of Un 

CHARACTER An 

INTEGER In 

SCALAR En.d where d=n-7 
For example: 

DECLARE ARRAY(10.2) INTEGER, HEIGHT-AND-WEIGHT; 
WRITE(6) ('HEIGHT','WEIGHT',HEIGHT-AND-WEIGHT) 

IN '2U7/; 

would produce a table such as: 



HT 


WEIGHT 


61 


120 


70 


152 



56 108 

E.8 X FORMAT ITEMS 

X FORMAT items are used to skip columns on input and output: 

The form: 
Xn 
is equivalent to TAB(n). 
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E.9 FORMAT QUOTE STRINGS 

FORMAT quote strings are used for constant character output. They have the form: 

"ccccc" or 'ccccc' 
where c is a character. 

For example: 

WRITE(6) ANS IN * "ANSWER=",I2,'; 
would produce: 

ANSWER=21 

E.10 P FORMAT ITEMS 

There is a 'Picture' FORMAT capability which is very useful for mixing character and 
numeric output data and specifying column alignments. 

WRITE(6) ANS IN 'P THE ANSWER IS $$$.$'; 
would produce: 

THE ANSWER IS 87.2 

another example: 

WRITE(6) (NO,ARGlARG2ARGl+2) 
IN 'P TEST SS: $.$ + $.$ = $$.$'; 

would produce: 

TEST 22: 4.8 + 5.3 = 10.1 

The P Format item runs from the P to the first ',' or '/' encountered, or to the end of 
the FORMAT character string. All characters are printed except for '$' and '*'. These are 
used to define numeric fields for INTEGER and SCALAR data. Such fields take the forms: 



<r <r ip <r c* p 

J> J) J) . J> ip J) 



where '.' placed the decimal and * places an exponent. 

For READ statements, consecutive '$', '.', and '*' define a field of the same length. 
Other characters cause corresponding columns to be skipped. Decimals in the input field 
take precedence over decimals in the FORMAT. 
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